RosettaCodeData/Task/User-input-Text/Forth/user-input-text-1.fth

: INPUT$ ( n -- addr n )
   PAD SWAP ACCEPT
   PAD SWAP ;