( MISSING FORTH WORDS )                                         FORTH DEFINITIONS DECIMAL                                       : 2DROP DROP DROP ;                                             : 2SWAP ROT >R ROT R> ;                                         : 2DUP  OVER OVER ;                                             : (MATCH)                                                           -DUP IF OVER + SWAP                                               DO                                                                DUP C@ I C@ -                                                   IF 0= LEAVE                                                     ELSE 1+                                                         THEN                                                          LOOP                                                          ELSE DROP 0=                                                    THEN ;                                                      -->                                                             