freepascal.compiler/packages/libsee/examples/testwrite.pp

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, PAnsiChar(program_text));
  See_global_eval(@interp,ainput,@res);
  see_input_close(ainput);
end.