begin
routine test
  routine static proc
    printstring("Greetings!"); newline
  end

  printstring("Hello world"); newline
  static proc
end

selectoutput(0)
test
newpage

endofprogram