 
         
 (deftest round-trip-1
-  (let [expr (generate {:synsem {:sem {:spec {:def :def} 
+  (let [expr (generate {:synsem {:subcat '()
+                                 :sem {:spec {:def :def} 
                                        :mod {:pred :difficile}
                                        :number :sing
                                      :pred :donna}}} 
-                       np-grammar)]
+                       np-grammar
+                       {:allow-meta-lexemes false})]
     (is (= (fo expr) "la donna difficile"))
     (is (not (empty? (parse (fo expr) np-grammar))))))
 

                           expressions
                           (take do-this-many expressions)))))))))

  

                 :expr (get-in expr [:synsem :sem])
                 :sem (get-in (first (parse (fo expr) np-grammar))
                              [:synsem :sem])})))))
(deftest roundtrip-np-grammar
  (let [do-this-many 100]
    (is (empty?
         (filter #(not (nil? %))
