anchor.diff:         collecting (format nil "<a href=\"index_~a.html\">~a</a>" (string-downcase tc) tc))))
   
   (defun index-links (tr1 b c)
  -(loop for x from 1 to c
  -   collect (format nil "<a href=\"~a/~a/~a.html\"> ~A </a> " tr1 b x x)))
  +  (loop for x from 1 to c
  +     collect (format nil "<a href=\"~a/~a/~a.html\"> ~A </a> " tr1 b x x)))
   
   (defun create-index-file (tr)
     `(:html (:head
  
positive.code:       (setq extracted-path (chapter-path "extracted" b)
              try-path (chapter-path "try" b ".html"))
        (with-open-file (in-stream extracted-path)
          (setq extracted (read in-stream))) ;todo
        (ensure-directories-exist try-path)
        (with-open-file (out-stream try-path
                                    :direction :output
  
negative.code:                                                  (second book))))
             (:hr)
             ((:div :class "other_translations")
              ,@(translation-indexes)))))
  
  (defun create-indexes ()
    (let ((index-file) )
  