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

                 :head {:phrasal false}}}})

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


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