| $ ' :\s+(\S+) ( ) s" " ." " f" " m" " " " ; ;; 0; swap drop dup nip over rot -rot 2dup 2drop 2over 2swap >r r> and or xor >> << not + * negate - / mod /mod */ 1+ 1- base hex decimal binary octal @ ! c@ c! +! cell+ cells char+ chars [ ] create does> variable variable, literal last 1, 2, 3, , here allot parse find compile if =if <if >if <>if then repeat until forth macro --