                 {:synsem {:cat :verb 
                           :sem {:tense :present 
                                 :pred :a 
-                                :obj {:pred :casa} 
+                                :obj {:pred :casa
+                                      :spec {:def :none}} ;; "a casa", not "a tua casa", "a della casa", etc
                                 :subj {:pred :I}}}})]
-    (is (or true
-            (= (fo result) "io sono a casa")))))
+    (is (= (fo result) "io sono a casa"))))

(ns babel.test.it
  (:refer-clojure :exclude [get-in])
  (:require [babel.italiano.grammar :refer [small medium np-grammar]]
            [babel.italiano.lexicon :refer [lexicon]]
            [babel.italiano.morphology :as morph :refer [analyze-regular fo replace-patterns]]
            [babel.italiano.morphology.nouns :as nouns]
            [babel.italiano.morphology.verbs :as verbs]
            [babel.italiano.workbook :refer [analyze generate parse]]
            [babel.parse :as parse]
            #?(:clj [clojure.test :refer [deftest is]])
            #?(:cljs [cljs.test :refer-macros [deftest is]])

            [clojure.repl :refer [doc]]
            [clojure.string :as string]
            [clojure.set :as set]
            [dag_unify.core :refer [copy fail? get-in strip-refs]]))

(deftest analyze-1
  (let [singular (analyze "compito")
