anchor.diff:      (:comment "#}")
       (:unparsed-variable "}}")
       (:unparsed-translation-variable "_}")
  -    (:unparsed-tag "%}")))
  +    (:unparsed-tag "%}")
  +    (:verbatim "$}")))
   
   (defun split-template-string (string start)
     (let (({ (position #\{ string :start start :test 'char=)))
  
positive.code: 			   (#\{ :unparsed-variable)
  			   (#\_ :unparsed-translation-variable)
  			   (#\% :unparsed-tag)
  			   (otherwise :not-special))))
  	      (ecase type
  		((:comment :unparsed-variable :unparsed-translation-variable :unparsed-tag)
  		 (let ((end (search (get-closing-delimiter type)
  				    string
  				    :start2 (1+ {))))
  
negative.code: 			     (split-template-string string (+ 2 end))))))
  		(:not-special (cons `(:string "{") (split-template-string string (1+ start))))))))))
  
  (def-token-compiler :verbatim (string)
    (lambda (stream)
      (write-string string stream)))
  
  (defun parse-template-string (string)
    (split-template-string string 0))
  