    (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))

     (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 :français) :none)))
     (not (= :none (fs/get-in arg '(:comp :français) :none))))
    (and

   (not (= :subcat (last path)))
   (not (= :italiano (last path)))
   (not (= :english (last path)))
   (not (= :espanol (last path)))
   (not (= :français (last path)))
   
   (not (= :none (:head arg :none)))
