$inc fvmstd.fp

proc main
  :getchar
  while dup "1" ld8 == do
    dup :putchar
  endwhile
endproc