@ 0
 args 1
 dup
 jz 1
 putc
 jmp 0

@ 1
 quit