anchor.diff:    (loop for tr in *translations*
        when (equalp code (car tr))
        return  tr))
  +
  +(defun book-nw-name (book-code)
  +  (loop for bk in *catholic-books*
  +     when (equalp book-code (car bk))
  +     return (third bk)))
   
   (defun create-html  (extracted preklad kniha kapitola)
     `(:html (:head
  
positive.code:                      kniha
                       kapitola)))
            (:body
             (:h1 ,(format nil "preklad ~a kniha ~a kapitola ~a"
                           preklad
                           kniha
                           kapitola))
             (:hr)
             ,(eval extracted))
            (:hr)
  
negative.code:       (if (equal (caadr fragment)
                   '(:DIV :ID "blok_versu"))
            (princ #\T) (princ #\-)))))
  
  (defun translation-books (translation)
    (loop for x in (each-translation-book-chapter)
  