         result
         (filter #(not (fail? %))
                 (map (fn [rule]
-                       (unifyc rule
+                       (unify rule
                                {:head (last (get lexicon "être"))}))
                      (:grammar (small))))]
     (is (not (empty? result)))

            #?(:cljs [cljs.test :refer-macros [deftest is]])
            #?(:clj [clojure.tools.logging :as log])
            #?(:cljs [babel.logjs :as log]) 
            [dag_unify.core :refer [fail-path fail? get-in strip-refs unifyc]]))

(defn small [] (fr/small))



(deftest generate-passe-compose-1
  (let [result
        (generate (unify
                   {:synsem {:subcat '()}}
                   {:synsem {:sem {:subj {:pred :noi
                                          :gender :fem}
