zpg / store (ii)

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

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