                      :sem {:pred :amare
                            :subj {:human true}}}}
    
-   "aller" {:français {:essere true
-                       :future-stem "ir"
+   "aller" {:français {:future-stem "ir"
                        :present {:1sing "vais"
                                  :2sing "vas"
                                  :3sing "va"

(ns babel.francais.lexicon
  (:require
   [babel.lexiconfn :refer (unify)]
   [babel.francais.morphology :refer [exception-generator phonize]]
   [babel.francais.pos :refer :all]
   [babel.lexiconfn :refer (compile-lex map-function-on-map-vals unify)]))

(def lexicon-source 
  {

                         :sem {:pred :teach}}}]

   "entrer" {:synsem {:cat :verb
                      :essere true
                     :sem {:pred :enter}}}

   "envoyer" {:synsem {:cat :verb
