begin
  open output(1, "test.zzz")
  select output(1)
  printstring("Hello World"); newline
endofprogram