$inc fvmstd.fp

proc main
  1 @i
  0x30 :putchar
  while &i 10 u< do
    0x30 :putchar
    &i 1 u+ @i
  endwhile
endproc