 
      (= (last path) :rule)
      (str "<span class='keyword'>"
-          (if (fs/ref? arg)
+          (if (ref? arg)
             @arg
             arg)
           "</span>")

   
   (or
    (and
     (not (= :none (fs/get-in arg '(:head :italiano) :none)))
     (not (= :none (fs/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))))
    (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 :english) :none)))
     (not (= :none (fs/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)))))]
    retval))

(def show-top true)

      "    </tr>"
      "    <tr>"
      "      <td class='ref'>"
      (if (ref? (:comp arg))
        (str
         "     <div class='ref'>"
         (fs/path-to-ref-index serialized (concat path '(:comp)) 0)
         "     </div>"))
      "      </td>"
      "      <td class='hc'>C</td><td>"
      (tablize (if (ref? (:comp arg))
                 @(:comp arg)
                 (:comp arg))
               (concat path '(:comp)) serialized opts)
      "      </td>"
      "      <td class='ref'>"
      (if (ref? (:head arg))
        (str
         "    <div class='ref'>"
         (fs/path-to-ref-index serialized (concat path '(:head)) 0)
         "    </div>"))
      "      </td>"
      "      <td class='hc'>H</td><td>"
      (tablize (if (ref? (:head arg))
                 @(:head arg)
                 (:head arg))
               (concat path '(:head)) serialized opts)
