anchor.diff:  (let ((hash (alist-hash-table
                '((post-++ . 1)
                  (post--- . 1)
  +               (|()| . 1)
  +               ([] . 1)
                  (\. . 1)
                  (-> . 1)
  +
  +               (pre-++  . 2)
  +               (pre---  . 2)
                  (!  . 2)
  +               (~  . 2)
                  (unary-+  . 2)
                  (unary--  . 2)
  +               (cast  . 2)
  +               (deref . 2)
  +               (addr  . 2)
  +               (align  . 2)
  +
                  (* . 3)
                  (/ . 3)
                  (% . 3)
  +
                  (+ . 4)
                  (- . 4)
  +
  +               (<< . 5)
  +               (>> . 5)
  +
  +               (< . 6)
  +               (> . 6)
  +               (<= . 6)
  +               (>= . 6)
   
                  (== . 7)
                  (!= . 7)
  
positive.code:               ((:band) '&)
                ((:= =) '=)
                (otherwise op))))
      (op-precedence op)
      op))
  
  
  
negative.code:                (\|   . 10)
                 (&&   . 11)
                 (\|\| . 12)
  
                 (|?:| . 12)
  
                 (= . 14)
                 (+= . 14)
  