anchor.diff:                                                                      OMETA::NULLARG)
                                                                    (OMETA::OMETA-APPLY
                                                                     OMETA::O
  -                                                                  'OMETA::DIGIT
  +                                                                  'OMETA:DIGIT
                                                                     NIL)))))
  -                                      (SETF DS OMETA::V)
  -                                      OMETA::V))
  -                                  (LAMBDA (OMETA::O OMETA::NULLARG)
  -                                    `(:APP OMETA::EXACTLY
  +                                      (SETF OMETA::DS OMETA::V)
  +                                      OMETA::V))
  +                                  (LAMBDA (OMETA::O OMETA::NULLARG)
  +                                    `(:APP EXACTLY
                                         ,(PARSE-INTEGER (COERCE DS 'STRING))))))))
   (DEFMETHOD OMETA::LETTERORDIGIT ((OMETA::O OMETA:OMETA-PARSER) OMETA::ARG)
              (LET ()
                (OMETA::OMETA-APPLY OMETA::O 'OMETA::OOR
                                    (LIST
                                     (LAMBDA (OMETA::O OMETA::NULLARG)
  -                                    (OMETA::OMETA-APPLY OMETA::O 'OMETA::LETTER NIL))
  -                                  (LAMBDA (OMETA::O OMETA::NULLARG)
  -                                    (OMETA::OMETA-APPLY OMETA::O 'OMETA::DIGIT
  +                                    (OMETA::OMETA-APPLY OMETA::O 'OMETA:LETTER
  +                                                        NIL))
  +                                  (LAMBDA (OMETA::O OMETA::NULLARG)
  +                                    (OMETA::OMETA-APPLY OMETA::O 'OMETA:DIGIT
                                                           NIL))))))
   (DEFMETHOD OMETA::ARGS ((OMETA::O OMETA:OMETA-PARSER) OMETA::ARG)
              (LET (XS)
  
positive.code:                                                              (OMETA::O
                                                                OMETA::NULLARG)
                                                             (OMETA::OMETA-APPLY
                                                              OMETA::O 'OMETA::TOKEN
                                                              (LIST XS)))
                                                           (LAMBDA
                                                               (OMETA::O
                                                                OMETA::NULLARG)
  
negative.code:                                  (LIST
                                    (LAMBDA (OMETA::O OMETA::NULLARG)
                                      (LET ((OMETA::V
                                             (OMETA::OMETA-APPLY OMETA::O
                                                                 'OMETA::EXPR
                                                                 NIL)))
                                        (SETF OMETA::X OMETA::V)
                                        OMETA::V))
                                    (LAMBDA (OMETA::O OMETA::NULLARG)
                                      (PROGN
  