: >single ( c-addr u -- n )
    0. 2swap >number 2drop drop ;

: store ( addr "numbers" -- )
    begin parse-word dup while
	    >single over ! cell+ repeat 2drop drop ;