: 3drop 2drop drop ;

: >byte ( string-addr count -- )
    0. 2swap >number 3drop ;

: store ( addr "numbers" -- )
    begin
        bl parse dup while
        >byte over c! 1+
    repeat 3drop ;

here dup store 1 2 3
3 dump