 
 (defn iyye_is_type_create_function [params]
   (let [[p1-name p2-type] params
-        p1-type (words/create-iyye-type p1-name)]
+        p1-type (words/create-iyye-type (:UNKNOWN p1-name))]
     (iyye_is_type_function [p1-type p2-type])))
 
 (defn iyye_consists_function [params]

                                     (conj (:Relations p2-type) p2-subtype))]
      (do
        (words/set-iyye-type! new-p1-type)
        (words/set-iyye-type! new-p2-type)))))

(defn iyye_is_type_function [params]
  (let [[p1-type p2-type] params]

    (dosync (ref-set iyye_iyye (uname iyye)))
    (dosync (ref-set iyye_human (uname human)))
    (dosync (ref-set iyye_yumzya (uname yumzya)))
    (dosync (alter words/noun-words conj (create-entry type) (create-entry actor)
                   (create-entry ai) (create-entry iyye) (create-entry human)
                   (create-entry yumzya)))))

