-module(examples@openai_reasoning). -compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]). -define(FILEPATH, "src/examples/openai_reasoning.gleam"). -export([main/0]). -if(?OTP_RELEASE >= 27). -define(MODULEDOC(Str), -moduledoc(Str)). -define(DOC(Str), -doc(Str)). -else. -define(MODULEDOC(Str), -compile([])). -define(DOC(Str), -compile([])). -endif. ?MODULEDOC(false). -file("src/examples/openai_reasoning.gleam", 18). ?DOC(false). -spec run_example(binary()) -> nil. run_example(Api_key) -> Client = starlet@openai:new(Api_key), Result = begin Msg = <<"What is the sum of all prime numbers between 1 and 20? Think through this step by step."/utf8>>, Chat = begin _pipe = starlet:chat(Client, <<"gpt-5-nano"/utf8>>), _pipe@1 = starlet@openai:with_reasoning(_pipe, reasoning_high), starlet:user(_pipe@1, Msg) end, gleam_stdlib:println(<<"User: "/utf8, Msg/binary>>), gleam_stdlib:println(<<""/utf8>>), gleam@result:'try'( starlet:send(Chat), fun(_use0) -> {_, Turn} = _use0, case starlet@openai:reasoning_summary(Turn) of {some, Summary} -> gleam_stdlib:println( <<"=== GPT's Reasoning Summary ==="/utf8>> ), gleam_stdlib:println(Summary), gleam_stdlib:println(<<""/utf8>>); none -> gleam_stdlib:println(<<"(No reasoning summary)"/utf8>>) end, gleam_stdlib:println(<<"=== GPT's Response ==="/utf8>>), gleam_stdlib:println(starlet:text(Turn)), {ok, nil} end ) end, case Result of {ok, _} -> nil; {error, Err} -> gleam_stdlib:println( <<"Error: "/utf8, (examples@utils:error_to_string(Err))/binary>> ) end. -file("src/examples/openai_reasoning.gleam", 9). ?DOC(false). -spec main() -> nil. main() -> Api_key = begin _pipe = envoy_ffi:get(<<"OPENAI_API_KEY"/utf8>>), gleam@result:unwrap(_pipe, <<""/utf8>>) end, case Api_key of <<""/utf8>> -> gleam_stdlib:println( <<"Error: OPENAI_API_KEY environment variable not set"/utf8>> ); _ -> run_example(Api_key) end.