\ 1 debug

VARIABLE SI_INC 0 SI_INC !

: SI1
   SI_INC @ >IN +!
   15 SI_INC !
;

: S$ S" SAVE-INPUT SI1 RESTORE-INPUT 12345" ;

S$ EVALUATE SI_INC @

. . .

\ 0 2345 15

bye