: WS? 33 < ;

: TOWORD 0 ( dummy ) BEGIN DROP C< DUP WS? NOT UNTIL ;