    ;; automagically guess the <app>.user namespace
    (let [an-ns (-> *ns*
                    str
-                   (clojure.string/replace #"\..+" ".user")
+                   (str/replace #"\..+" ".user")
                    symbol)]
      (require an-ns)
      (start-system! an-ns)))
   ([an-ns]
-   (do
      (printf "!! Starting %s\n" an-ns)
      (if (get @system-status an-ns)
        (println "!! System possibly running" an-ns)

  thing)


(defn help [& n]
  (println (str ">>> in ns " 'R))
  (mapv (fn [[k v]]
          (println v)) (ns-publics 'R))
  ::ok)


         (if-let [f (ns-resolve an-ns 'start)]
           (do
             (f)
             (swap! system-status (fn [s] (assoc s an-ns true)))))))))


(defn stop-system!
