$ include "seed7_05.s7i";

const proc: main is func
  local
    var file: lp is STD_NULL;
  begin
    lp := open("/dev/lp0", "w");
    writeln(lp, "Hello world!");
    close(lp);
  end func;