program testwrite; {$mode objfpc} {$H+} uses Classes, libsee, mod_stream; Var interp : TSEE_interpreter; ainput : PSEE_INPUT; res : TSEE_Value; const Program_text = 'writeln("Hello, world!");'; begin see_init; RegisterWriteModule; SEE_interpreter_init(@interp); ainput :=SEE_input_utf8(@interp, pchar(program_text)); See_global_eval(@interp,ainput,@res); see_input_close(ainput); end.