anchor.diff:  (define-mode multi-line-comment (20 :all)
     (:entry "/\\*")
     (:exit "\\*/"))
  -
  -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  -;;;; substition
  -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  -
  -(define-mode space-tag (20 :all)
  -  (:single "{sp}"))
  -
  -(define-mode emptry-string (20 :all)
  -  (:single "{nil}"))
  -
  -(define-mode carriage-return (20 :all)
  -  (:single "{\\\r}"))
  -
  -(define-mode line-feed (20 :all)
  -  (:single "{\\\n}"))
  -
  -(define-mode tab (20 :all)
  -  (:single "{\\\t}"))
  -
  -(define-mode left-brace (20 :all)
  -  (:single "{lb}"))
  -
  -(define-mode right-brace (20 :all)
  -  (:single "{rb}"))
  -
  -(define-mode eol (30 :all)
  -  (:single "\\n"))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;; namespace tag
  
positive.code: ;;;; msg
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (define-mode msg (30 :all)
    (:entry "{msg[^}]*}(?=.*{/msg})")
    (:entry-attribute-parser parse-arguments)
    (:exit "{/msg}"))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; if
  
negative.code:   expr)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;; closure template syntax
  ;;;; see http://code.google.com/intl/ru/closure/templates/docs/commands.html
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (define-mode toplevel (0)
    (:allowed :baseonly eol one-line-comment multi-line-comment))
  