anchor.diff:             (format t "~%")
              (loop for chapter from 1 to max-chapter
                 do
  -                (ensure-directories-exist
  -                 (downloaded-folder translation-code book-code))
  -                (format t "~s ~s ~s  " translation-code book-code chapter))
  +                (sleep 1)
  +                (setq downloaded-page
  +                      (downloaded-path translation-code book-code chapter))
  +                (ensure-directories-exist downloaded-page)
  +                (format t "~s ~s ~s  " translation-code book-code chapter)
  +                (with-open-file (stream downloaded-page :direction :output)
  +                  (format stream "~a" (run translation-code book-code chapter)))
  +                )
              ))))
  
positive.code:                    (format nil "kap=~a" chapter))))
           (parsed (html-parse:parse-html downloaded)))
      ;;the line below extracts text of the chapter
      (nth 6 (nth 2 (nth 2 (cadr parsed))))))
  
  ;; you can run it like this: (run "JB" "J" 1)
  
  
  (defun downloaded-folder (tran book)
    (merge-pathnames (format nil "downloaded/~a/~a/" tran book) *default-pathname-defaults*))
  
  
  (defun zzz ()
  
negative.code:         (book-chapters)
          (translation-name)
          (book-code)
          (max-chapter)
          (downloaded-page))
      (dolist (tran *translations*)
        (setq translation-code (nth 0 tran)
              book-chapters    (nth 1 tran)
  