 
         all-of-the-specs (concat specs [root-spec semantic-spec]
                                  vedere-specs)]
-        
+    
     (repeatedly #(println
                   (morph-ps (time (generate
                                    (nth all-of-the-specs

  (let [generated (generate spec model)]
    (u/get-in generated path ::none)))

(defn basecamp []
  (repeatedly 
   #(println 
     (morph 
      (time (binding [babel.generate/truncate? true
                      babel.generate/println? true
                      babel.generate/index-fn (:index-fn model)
                      babel.generate/model model]
              (generate {:modified false
                         :root {:italiano {:italiano "radersi"}}
                         :synsem {:cat :verb
                                  :sem {:aspect :perfect
                                        :tense :present}
                                  :subcat []}})))))))




(def tree-8
  ;;      ___.__
  ;;     /      \
  ;;    C        H
  ;;   / \      / \
  ;;  C   H    H   C
  ;;          / \
  ;;         H   C
  ;;
  {:phrasal true
   :comp tree-1
   :head {:phrasal true
