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