anchor.diff:                 (values (case (cdr ..x.)
                          'x  'absx
                          'y  'absy
  -                       (parser-error "Index register expected instead of '~A'." (cdr ..x.)))
  +                       (parser-error "Index register expected instead of '~A'."
  +                                     (cdr ..x.)))
                        x.)
                  (parser-error "Index register expected."))
  -            (parser-error "Comma expected instead of ~A." (car .x.))))
  +            (parser-error "Comma expected instead of ~A."
  +                          (car .x.))))
       (bracket-open? x.)
         (progn
           (| (number-or-identifier? .x.)
  -           (parser-error "Expression expected instead of ~A." (car .x.)))
  +           (parser-error "Expression expected instead of ~A."
  +                         (car .x.)))
           (? (bracket-close? ..x.)
              (?
  -             (comma? ...x.)
  -               (?
  -                 (eq 'y (cdr ....x.))  (values 'izpy .x.)
  -                 (parser-error "Index register Y expected."))
  -             ...x.
  -               (parser-error "Comma or end of line expected instead of ~A." (car ...x.))
  +             (comma? ...x.)  (? (eq 'y (cdr ....x.))
  +                                (values 'izpy .x.)
  +                                (parser-error "Index register Y expected."))
  +             ...x.           (parser-error "Comma or end of line expected instead of ~A."
  +                                           (car ...x.))
                (values 'indi .x.))
              (comma? ..x.)
                (? (identifier? ...x.)
  -                (?
  -                  (eq 'x (cdr ...x.))
  -                    (? (bracket-close? ....x.)
  -                       (values 'izpx .x.)
  -                       (parser-error "Closing bracket expected instead of ~A." ....x.))
  -                  (parser-error "Index register X expected."))
  +                (? (eq 'x (cdr ...x.))
  +                   (? (bracket-close? ....x.)
  +                      (values 'izpx .x.)
  +                      (parser-error "Closing bracket expected instead of ~A."
  +                                    ....x.))
  +                   (parser-error "Index register X expected."))
                   (parser-error "Index register X expected."))
              (parser-error "~A closing bracket."
  -                  (? (member-if #'bracket-close? ...x)
  -                     "Misplaced"
  -                     "Missing"))))
  +                         (? (member-if #'bracket-close? ...x)
  +                            "Misplaced"
  +                            "Missing"))))
       (parser-error "Syntax error at ~A." x.)))
   
   (defun parse-assignment (x)
  
positive.code:     (eq 'hash x..)
        (progn
          (| (number-or-identifier? .x.)
             (parser-error "Expression expected instead of ~A." (car .x.)))
          (values 'imm .x.))
      (number-or-identifier? x.)
        (? (not .x)
  
negative.code: (defun parse-directive (x)
    `((,(car x.) ,(cdr x.) ,@.x)))
  
  (defun parse-atoms (x)
    (?
      (& (cons? x)
         (in? x. 'number 'string))  .x
      (cons? x)                     (. (parse-atoms x.) (parse-atoms .x))
      x))
  
  (defun parse-instruction (x)
    (with ((addrmode operand-expression) (parse-operand .x))
      (list (make-instruction :mnemonic x..
                              :addrmode addrmode
                              :operand-expression operand-expression))))
  
  (defun parse-0 (x)
    (when x
      (?
  