$inc fvmstd.fp

proc main
  while 1 do
    :getchar :putchar
  endwhile
endproc