(DEFMETHOD EMPTY ((O OMETA))
           (LET ()
             (OOR O
                  (LIST
                   (LAMBDA (O)
                     (OAND O
                           (LIST (LAMBDA (O) (OAND O (LIST)))
                                 (LAMBDA (O)
                                   (OOR O
                                        (LIST
                                         (LAMBDA (O)
                                           (OAND O
                                                 (LIST
                                                  (LAMBDA (O) T))))))))))))))
(DEFMETHOD END ((O OMETA))
           (LET ()
             (OOR O
                  (LIST
                   (LAMBDA (O)
                     (OAND O
                           (LIST (LAMBDA (O) (OAND O (LIST)))
                                 (LAMBDA (O)
                                   (OOR O
                                        (LIST
                                         (LAMBDA (O)
                                           (OAND O
                                                 (LIST
                                                  (LAMBDA (O)
                                                    (ONOT O
                                                          (LAMBDA (O)
                                                            (APPLY 'ANYTHING
                                                                   (LIST
                                                                    O))))))))))))))))))
(DEFMETHOD EXACTLY ((O OMETA))
           (LET (GOT WANT)
             (OOR O
                  (LIST
                   (LAMBDA (O)
                     (OAND O
                           (LIST
                            (LAMBDA (O)
                              (OAND O
                                    (LIST
                                     (LAMBDA (O)
                                       (LET ((V (APPLY 'ANYTHING (LIST O))))
                                         (SETF WANT V)
                                         V)))))
                            (LAMBDA (O)
                              (OOR O
                                   (LIST
                                    (LAMBDA (O)
                                      (OAND O
                                            (LIST
                                             (LAMBDA (O)
                                               (LET ((V
                                                      (APPLY 'ANYTHING
                                                             (LIST O))))
                                                 (SETF GOT V)
                                                 V))
                                             (LAMBDA (O)
                                               (OPRED O (EQUAL WANT GOT)))
                                             (LAMBDA (O) WANT))))))))))))))
(DEFMETHOD OCHAR ((O OMETA))
           (LET (X)
             (OOR O
                  (LIST
                   (LAMBDA (O)
                     (OAND O
                           (LIST (LAMBDA (O) (OAND O (LIST)))
                                 (LAMBDA (O)
                                   (OOR O
                                        (LIST
                                         (LAMBDA (O)
                                           (OAND O
                                                 (LIST
                                                  (LAMBDA (O)
                                                    (LET ((V
                                                           (APPLY 'ANYTHING
                                                                  (LIST O))))
                                                      (SETF X V)
                                                      V))
                                                  (LAMBDA (O)
                                                    (OPRED O (CHARACTERP X)))
                                                  (LAMBDA (O) X))))))))))))))
(DEFMETHOD OSPACE ((O OMETA))
           (LET (X)
             (OOR O
                  (LIST
                   (LAMBDA (O)
                     (OAND O
                           (LIST (LAMBDA (O) (OAND O (LIST)))
                                 (LAMBDA (O)
                                   (OOR O
                                        (LIST
                                         (LAMBDA (O)
                                           (OAND O
                                                 (LIST
                                                  (LAMBDA (O)
                                                    (LET ((V
                                                           (APPLY 'OCHAR
                                                                  (LIST O))))
                                                      (SETF X V)
                                                      V))
                                                  (LAMBDA (O)
                                                    (OPRED O
                                                           (<= (CHAR-CODE X)
                                                               32)))
                                                  (LAMBDA (O) X))))))))))))))
(DEFMETHOD SPACES ((O OMETA))
           (LET ()
             (OOR O
                  (LIST
                   (LAMBDA (O)
                     (OAND O
                           (LIST (LAMBDA (O) (OAND O (LIST)))
                                 (LAMBDA (O)
                                   (OOR O
                                        (LIST
                                         (LAMBDA (O)
                                           (OAND O
                                                 (LIST
                                                  (LAMBDA (O)
                                                    (OMANY O
                                                           (LAMBDA (O)
                                                             (APPLY 'OSPACE
                                                                    (LIST
                                                                     O))))))))))))))))))
(DEFMETHOD LETTER ((O OMETA))
           (LET (X)
             (OOR O
                  (LIST
                   (LAMBDA (O)
                     (OAND O
                           (LIST (LAMBDA (O) (OAND O (LIST)))
                                 (LAMBDA (O)
                                   (OOR O
                                        (LIST
                                         (LAMBDA (O)
                                           (OAND O
                                                 (LIST
                                                  (LAMBDA (O)
                                                    (LET ((V
                                                           (APPLY 'OCHAR
                                                                  (LIST O))))
                                                      (SETF X V)
                                                      V))
                                                  (LAMBDA (O)
                                                    (OPRED O (ALPHA-CHAR-P X)))
                                                  (LAMBDA (O) X))))))))))))))
(DEFMETHOD DIGIT ((O OMETA))
           (LET (X)
             (OOR O
                  (LIST
                   (LAMBDA (O)
                     (OAND O
                           (LIST (LAMBDA (O) (OAND O (LIST)))
                                 (LAMBDA (O)
                                   (OOR O
                                        (LIST
                                         (LAMBDA (O)
                                           (OAND O
                                                 (LIST
                                                  (LAMBDA (O)
                                                    (LET ((V
                                                           (APPLY 'OCHAR
                                                                  (LIST O))))
                                                      (SETF X V)
                                                      V))
                                                  (LAMBDA (O)
                                                    (OPRED O (DIGIT-CHAR-P X)))
                                                  (LAMBDA (O) X))))))))))))))