anchor.diff:                     (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))))))
  +    ;;(nth 6 (nth 2 (nth 2 (cadr parsed))))
  +     downloaded
  +    ))
   
   ;; 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 downloaded-path (tran book chapter)
  +  (merge-pathnames (format nil "downloaded/~a/~a/~a" tran book chapter)
  +                   *default-pathname-defaults*))
   
   
   (defun zzz ()
  
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:         (book-chapters)
          (translation-name)
          (book-code)
          (max-chapter)
          (downloaded-page))
      (dolist (tran *translations*)
        (setq translation-code (nth 0 tran)
              book-chapters    (nth 1 tran)
  