anchor.diff:        (with-open-file (in-stream extracted-path)
           (setq extracted (read in-stream))) ;todo
         (ensure-directories-exist try-path)
  -      (with-open-file (out-stream try-path :direction :output)
  +      (with-open-file (out-stream try-path :direction :output  :if-exists :supersede)
           (lml2:html-print
            (create-html extracted preklad kniha kapitola)
            out-stream)))))
  
positive.code:       (with-open-file (stream saved :direction :output )
          (format stream "'~S" (walk-tree (print-parsed b)))))))
  
  (defun create-html  (extracted preklad kniha kapitola)
    `(:html (:head
             ((:META :HTTP-EQUIV "Content-Type"
  
negative.code:                          preklad
                           kniha
                           kapitola))
             (:hr)
             ,(eval extracted))
            (:hr)))
  
  (defun try-extracted ()
    (let ((extracted-path) (try-path) (extracted) (preklad) (kniha) (kapitola))
  