proc putchar
  0xCFFFFFFFFFFFFFFD st8
endproc

proc puts
  while dup ld8 0 == not do
    dup ld8 :putchar
    1 u+
  endwhile
  pop
endproc

proc newline
  10 :putchar
endproc

proc main
  "Hello World!" :puts :newline
endproc