anchor.diff:     (1 :TRANSFORM-UID)
      (1 :TRANSFORM-QUALIFIED-NAME)
      (1 :TRANSFORM-QUOTED-TERM)
  -   (1 :TRANSFORM-APPLY)
   
      (1 :TRANSFORM-TUPLE)
      (1 :TRANSFORM-LIST)
  
positive.code:   (make-transform-repeat 1 ':left-lcb ':right-lcb))
  
  (define-sw-parser-rule :TRANSFORM-PROC ()
    (:tuple (1 :SYMBOL) (2 (:repeat* :TRANSFORM-TERM)))
      (make-transform-command (common-lisp::symbol-name (quote 1)) 2 ':left-lcb ':right-lcb))
  
  ;; (define-sw-parser-rule :TRANSFORM-EXPR-ARG ()
  
negative.code: 
  (define-sw-parser-rule :TRANSFORM-TERM ()
    (:anyof
     (1 :NON-APPLY-TRANSFORM-TERM)
     (1 :TRANSFORM-APPLY)
     )
    1)
  
  (define-sw-parser-rule :NON-APPLY-TRANSFORM-TERM ()
    (:anyof
     (1 :TRANSFORM-NUMBER)
     (1 :TRANSFORM-STRING)
     (1 :TRANSFORM-TRUE)
  