anchor.diff:      (write-function "$objectFromPrototype$" ()
         (write-line "    function C () {}" out)
         (write-line "    C.prototype = obj;" out)
  -      (write-line "    return new C;" out)))
  +      (write-line "    return new C;" out))))
  +
  +(defun write-namespace-declaration (name out)
  +  (iter (for pos first (position #\. name) then (position #\. name :start (1+ pos)))
  +        (for short-name = (subseq name 0 pos))
  +        (format out "if (typeof ~A === 'undefined') { ~A = {}; }~&" short-name short-name)
  +        (while pos))
     (values))
   
   (defun write-namespace-body (name templates out)
  
positive.code:            (write-expression (second args) out)
             (write-string " : " out)
             (write-expression (third args) out)))))))
                          
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; commands
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code:   (write-call-name cmd out)
    (with-write-parenthesis (out)
      (let ((data (call-data cmd)))
        (cond
          ((eql data :all)
           (write-string "$env$" out))
          ((eql data nil)
  