    
    (or
     (and
-     (not (= :none (fs/get-in arg '(:head :italiano) :none)))
-     (not (= :none (fs/get-in arg '(:comp :italiano) :none))))
+     (not (= :none (get-in arg '(:head :italiano) :none)))
+     (not (= :none (get-in arg '(:comp :italiano) :none))))
     (and
-     (not (= :none (fs/get-in arg '(:head :espanol) :none)))
-     (not (= :none (fs/get-in arg '(:comp :espanol) :none))))
+     (not (= :none (get-in arg '(:head :espanol) :none)))
+     (not (= :none (get-in arg '(:comp :espanol) :none))))
     (and
-     (not (= :none (fs/get-in arg '(:head :français) :none)))
-     (not (= :none (fs/get-in arg '(:comp :français) :none))))
+     (not (= :none (get-in arg '(:head :français) :none)))
+     (not (= :none (get-in arg '(:comp :français) :none))))
     (and
-     (not (= :none (fs/get-in arg '(:head :english) :none)))
-     (not (= :none (fs/get-in arg '(:comp :english) :none)))))
+     (not (= :none (get-in arg '(:head :english) :none)))
+     (not (= :none (get-in arg '(:comp :english) :none)))))
    
    (or
-    (and (fs/ref= arg '(:head :italiano) '(:italiano :b))
-         (fs/ref= arg '(:comp :italiano) '(:italiano :a)))
-    (and (fs/ref= arg '(:head :espanol) '(:espanol :b))
-         (fs/ref= arg '(:comp :espanol) '(:espanol :a)))
-    (and (fs/ref= arg '(:head :français) '(:français :b))
-         (fs/ref= arg '(:comp :français) '(:français :a)))
-    (and (fs/ref= arg '(:head :english) '(:english :b))
-         (fs/ref= arg '(:comp :english) '(:english :a)))))]
+    (and (ref= arg '(:head :italiano) '(:italiano :b))
+         (ref= arg '(:comp :italiano) '(:italiano :a)))
+    (and (ref= arg '(:head :espanol) '(:espanol :b))
+         (ref= arg '(:comp :espanol) '(:espanol :a)))
+    (and (ref= arg '(:head :français) '(:français :b))
+         (ref= arg '(:comp :français) '(:français :a)))
+    (and (ref= arg '(:head :english) '(:english :b))
+         (ref= arg '(:comp :english) '(:english :a)))))]
     retval))
 
 (def show-top true)

   
   (or
    (and
     (not (= :none (fs/get-in arg '(:head :english) :none)))
     (not (= :none (fs/get-in arg '(:comp :english) :none))))
    (and
     (not (= :none (fs/get-in arg '(:head :espanol) :none)))
     (not (= :none (fs/get-in arg '(:comp :espanol) :none))))
    (and
     (not (= :none (fs/get-in arg '(:head :français) :none)))
     (not (= :none (fs/get-in arg '(:comp :français) :none))))
    (and
     (not (= :none (fs/get-in arg '(:head :italiano) :none)))
     (not (= :none (fs/get-in arg '(:comp :italiano) :none)))))
   
   (or
    (and (fs/ref= arg '(:head :italiano) '(:italiano :a))
         (fs/ref= arg '(:comp :italiano) '(:italiano :b)))

    (and (fs/ref= arg '(:head :français) '(:français :a))
         (fs/ref= arg '(:comp :français) '(:français :b)))

    (and (fs/ref= arg '(:head :espanol) '(:espanol :a))
         (fs/ref= arg '(:comp :espanol) '(:espanol :b)))

    (and (fs/ref= arg '(:head :english) '(:english :a))
         (fs/ref= arg '(:comp :english) '(:english :b)))))]
    retval))

(defn head-final? [arg path]

              true "")
             ">"
             "<th>" feature "</th>"
             (if (ref? (second tr))
               (str
                "<td class='ref'>"
                "  <div class='ref'>"
