\ --- list of common forth words, projected as base for common forth ---

dup ?dup drop swap rot over pick 2dup 2drop 2swap 2over >r r@ r> depth
@ ! c@ c! +! move fill count skip scan
if else then begin while repeat until do ?do loop leave i j
execute quit bye exit abort
+ - * / mod /mod */ */mod negate lshift rshift min max abs 
or and xor
0= 0< = < u<
create variable constant [ ] immediate reveal
, c, allot here pad
does>
( \ ." s" 
<# # #s sign hold #> . u. u.r .r cr type .s emit key word prompt
base cell last


( find )  ( accept/expect ) ( ?immediate ) ( key? ) ( compare )
( vocabularies )  ( number ) ( interpret ) ( query )