$inc fvmstd.fp

proc main
  1 @divisor
  while &divisor 100 u< do
    0x31 :putchar
    &divisor 10 u* @divisor
  endwhile
  0x32 :putchar
endproc