anchor.diff:  			   (#\{ :unparsed-variable)
   			   (#\_ :unparsed-translation-variable)
   			   (#\% :unparsed-tag)
  +			   (#\$ :verbatim)
   			   (otherwise :not-special))))
   	      (ecase type
  -		((:comment :unparsed-variable :unparsed-translation-variable :unparsed-tag)
  +		((:comment 
  +		  :unparsed-variable 
  +		  :unparsed-translation-variable 
  +		  :unparsed-tag
  +		  :verbatim)
   		 (let ((end (search (get-closing-delimiter type)
   				    string
   				    :start2 (1+ {))))
  
positive.code:     (:comment "#}")
      (:unparsed-variable "}}")
      (:unparsed-translation-variable "_}")
      (:unparsed-tag "%}")))
  
  (defun split-template-string (string start)
    (let (({ (position #\{ string :start start :test 'char=)))
  
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))
  