     (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 actor)
+    (dosync (alter words/noun-words conj (create-entry type) (create-entry actor)
                    (create-entry ai) (create-entry iyye) (create-entry human)
                    (create-entry yumzya)))))
 

(defn- create-entry [entry] {(:Uname (:atom entry)) entry})

(defn- init-builtin-words []
  (let [actor (words/create-iyye-type "actor" true)
        ai (words/create-iyye-type "ai" true)
        iyye (words/create-iyye-type "iyye" true)
        human (words/create-iyye-type "human" true)

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

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