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

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