1program testwrite;
2
3{$mode objfpc}
4{$H+}
5
6uses
7  Classes, libsee, mod_stream;
8
9Var
10  interp : TSEE_interpreter;
11  ainput : PSEE_INPUT;
12  res    : TSEE_Value;
13
14const
15   Program_text = 'writeln("Hello, world!");';
16
17begin
18  see_init;
19  RegisterWriteModule;
20  SEE_interpreter_init(@interp);
21  ainput :=SEE_input_utf8(@interp, pchar(program_text));
22  See_global_eval(@interp,ainput,@res);
23  see_input_close(ainput);
24end.
25
26