RosettaCodeData/Task/Increment-a-numerical-string/Forth/increment-a-numerical-string-1.fth

: >string ( d -- addr n )
  dup >r dabs <# #s r> sign #> ;

: inc-string ( addr -- )
  dup count number? not abort" invalid number"
  1 s>d d+ >string rot place ;