anchor.diff:          (book-chapters)
           (translation-name)
           (book-code)
  -        (max-chapter))
  +        (max-chapter)
  +        (downloaded-page))
       (dolist (tran *translations*)
         (setq translation-code (nth 0 tran)
               book-chapters    (nth 1 tran)
  
positive.code:            (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))
             ))))
  
negative.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))))
       downloaded
      ))
  
  ;; you can run it like this: (run "JB" "J" 1)
  
  
  (defun downloaded-path (tran book chapter)
    (merge-pathnames (format nil "downloaded/~a/~a/~a" tran book chapter)
                     *default-pathname-defaults*))
  
  
  (defun zzz ()
  