anchor.diff:       when (and (equal (nth 1 x) "Zj")
                  (eq (nth 2 x) 21))
        collect x))
  +;; getting beginning (subseq) of Revelation 21 in every translation
  +;; (dolist  (b (revelation-21))
  +;;   (format t "~S ~S~%~%~%" (car b)  (subseq (walk-tree (print-parsed b)) 0 10)))
   
   (defun translation-books (translation)
     (loop for x in (each-translation-book-chapter)
  
positive.code:                                            (1+ zchapter))))))))
      results))
  
  (defun sample-parsed ()
    '((:!DOCTYPE
      " html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\"")
     ((:HTML :XMLNS "http://www.w3.org/1999/xhtml")
      (:HEAD
       ((:META :HTTP-EQUIV "Content-Type" :CONTENT "text/html; charset=utf-8"))
       ((:META :HTTP-EQUIV "language" :CONTENT "CZ"))
       ((:META :NAME "Author" :CONTENT))
       ((:META :NAME "viewport" :CONTENT
               "initial-scale=1, maximum-scale=1, user-scalable=no"))
       ((:SCRIPT :LANGUAGE "JavaScript" :CHARSET "utf-8" :SRC "tooltip.js"))
       ((:STYLE :TYPE "text/css" :MEDIA "all"))
       ((:LINK :REL "stylesheet" :TYPE "text/css" :HREF "style.css"))
       ((:SCRIPT :SRC "ajax.js" :TYPE "text/javascript"))
       ((:SCRIPT :TYPE "text/javascript" :SRC "styleswitcher.js"))
       ((:LINK :REL "alternate stylesheet" :TYPE "text/css" :HREF "css/nula.css"
               :TITLE "normal"))
       (:TITLE
        "New World"))
      ((:BODY :BGCOLOR "#FFFFFF" :TEXT "#000000" :LINK "#FF0000" :VLINK "#804000"
              :ALINK "#B55515" :LEFTMARGIN "20" :TOPMARGIN "5" :RIGHTMARGIN "20"
              :BOTTOMMARGIN "10" :MARGINWIDTH "20")
       ((:DIV :ALIGN "center")
        ((:DIV :ALIGN "center")
         ((:DIV :ID "nadpisyknih")
          ((:SPAN :CLASS "nazev_knih")
           "New World"))))
       ((:DIV :ALIGN "center")
        ((:DIV :ID "blok_versu")
         "A viděl jsem nové nebe" (:SUP "1")
         " a novou zemi," (:SUP "2") " neboť dřívější nebe" (:SUP "3")
         " a dřívější země" (:SUP "4") " pominuly a moře" (:SUP "5") " již není. "
  
         "&nbsp;" ((:SPAN :CLASS "cisloverse") "2") "Viděl jsem také svaté město"
         (:SUP "1") ", Nový Jeruzalém, jak sestupuje z nebe od Boha" (:SUP "2")
         " a " (:EM "je") " připravený jako nevěsta" (:SUP "3")
         " ozdobená pro svého manžela."))))))
  
  (let ((result) (count))
    (defun my-init ()
      (setq result nil count 0))
  
    (defun stats ()
      (format t "~&result ~S~%count ~d~%~%" result count))
  
    (defun walk (x)
      (let ((head (car x))
            (tail (cdr x)))
        (incf count)
        (if (equalp (car x) '(:DIV :ID "blok_versu"))
            (setf result (nconc result x))
            (progn
              (when (listp head) (walk head))
              (when tail (walk tail))))))
  
    (defun walk-results () result))
  
  ;; use the above code like this
  ;; (progn
  ;;   (my-init)
  ;;   (walk (print-parsed))
  ;;   (walk-results))
  
  (defun genesis-1 ()
    (loop for x in (each-translation-book-chapter)
  
negative.code:                            (nth 2 arglist))
                     *default-pathname-defaults*))
  
  (defun print-parsed (ch)
    "unfinished experimental code"
    ;;(ch '("PNS" "Zj" 21))
    (let* ((downloaded (chapter-path "downloaded" ch)))
      (with-open-file (stream downloaded)
        (html-parse:parse-html stream))))
  
  