\ installation of defining words                 ' create constant create0  ' immediate constant imm0            : [char]  m[char] ; immediate                                   : s"  ms" ; immediate                                           : [']  m['] ; immediate                                         : create  mcreate ;                                             : variable  mvariable ;                                         : constant  mconstant ;                                         : else  melse ; immediate                                       : then mthen ; immediate                                        : while  mwhile ; immediate                                     : repeat  mrepeat ; immediate                                   : do  mdo ; immediate                                           : loop  mloop ; immediate                                       : +loop  m+loop ; immediate                                     : string  mstring ;                                             : if  mif ; immediate                                           : begin  mbegin ; immediate                                     : again  magain ; immediate                                     : until  muntil ; immediate: of  mof ; immediate: endof  melse ; immediate                                       : endcase  mendcase ; immediate                                       : defer  mdefer ;: is  mis ; immediate: immediate  mimmediate ;                                       : : m: ;                                                                                                                        \ manually compile ';'                                          create0 execute ; ' (:) @ here 1 cells - ! ' m; , ' exit ,      imm0 execute