SAVE-INPUT
* SAVE-INPUT ( -- xn .. x1 )

fetch the current state of the input-channel which
may be restored with >RESTORE-INPUT later

core ordinary primitive