anchor.diff:    (= *pc* 0)
     (= *acycles* 0)
     (rewind-labels)
  -  (assemble-list out x))
  +  (assemble-parsed-expressions out x))
   
   (defun assemble-pass-to-file (name i)
     (with-output-file out name
       (assemble-pass out i)))
   
   (defun assemble-files (out-name &rest in-names)
  +  (format t "Assembling to '~A'…~%" out-name)
     (let parsed (parse-files in-names)
       (clear-labels)
       (= *pass* 0)
  
positive.code: (defun assemble-toplevel-expression (out x)
    (alet (assemble-expression x)
      (?
        (cons? !)    (assemble-list out (list (. nil !)))
        (string? !)  (assemble-string out !)
        (assemble-byte out !))))
  
  
negative.code:     (let pc *pc*
        (assemble o x)
        (let bytes (get-stream-string o)
          (when bytes
            (fresh-line)
            (print-hexword pc)
  