 (defn populate-system 
    "Adds single type and system" 
    [t s]
-  (clear-all)
+  (cleanup)
   (add-users)
   (p/add-type t)
   (s/add-system s))

(defn cleanup  
   []
  (es/clear)
  (clear-all))

(defn populate-all 
   "populates all data types" 

(defn -main 
   "run populate all" 
   [& args]
   (set-user {:username "admin"}
     (populate-all)
     (p/delete-user "admin"); will be set up in next launch
     (println "populate done!")))
