 
   )
 
+(defn init-kb []
+  (init-builtins-kb)
+  )
 
 ; (apply str (rest (str (:When {:When :ALWAYS}))))

        instof (create-iyye-relation "instance of" :IYE :AXIOM :ALWAYS [] iyye_instance_function)]
    (dosync (ref-set iyye_is_type t_is))
    (dosync (ref-set iyye_consists_type consistsof))
    ; (dosync (alter noun-words conj iyye_concept))
    ;(dorun (map #(do ( persistence/write-fact-to-db (into {} %))) @action-words))
    ))


(def iyye_is_type (ref 0))
(def iyye_consists_type (ref 0))
(def iyye_create_instance (ref 0))

(defn action [cmd params IO]
  (let [actions
