: store ( addr "numbers" -- )
    begin
        0 0 bl word count
        dup if
            >number drop drop drop over c! 1+
        else
            drop drop drop drop drop exit
        then
    again ;