anchor.diff:    :documentation "Tuple")
   
   (define-sw-parser-rule :TUPLE-DISPLAY-BODY ()
  -  (:tuple (1 :EXPRESSION) "," (2 (:repeat+ :EXPRESSION ",")))
  -  (cons 1 2))
  +  (:repeat++ :EXPRESSION ","))
   
   ;;; ------------------------------------------------------------------------
   ;;;  RECORD-DISPLAY
  
positive.code:   (make-rec-let-binding 1 2 3 4 ':left-lcb ':right-lcb))
  
  (define-sw-parser-rule :FORMAL-PARAMETER-SEQUENCE ()
    (:repeat+ :FORMAL-PARAMETER ""))
  
  ;;; ------------------------------------------------------------------------
  ;;;   IF-EXPRESSION
  
negative.code: ;;; ------------------------------------------------------------------------
  
  (define-sw-parser-rule :SORT-PRODUCT ()
    (:tuple (1 (:repeat++ :TIGHT-SORT "*")))
    (make-sort-product 1 ':left-lcb ':right-lcb))
  
  ;;; ------------------------------------------------------------------------
  ;;;   SORT-INSTANTIATION
  