* SAVE-INPUT ( -- xn .. x1 ) fetch the current state of the input-channel which may be restored with >RESTORE-INPUT later
SAVE-INPUT
( -- xn .. x1 )
>RESTORE-INPUT
core ordinary primitive