 
 ;; (defonce ^:private session-id (System/currentTimeMillis))
 (defonce ^:private mount-state 42)
+(defonce ^:private -args (atom :no-args))                  ;; mostly for command line args and external files
 (defonce ^:private state-seq (atom 0))
 (defonce ^:private state-order (atom {}))
 

  (let [states (or states (find-all-states))]
    (bring states down >)
    :stopped))

       doall))

(defn start [& states]
  (let [states (or (seq states) (find-all-states))]
    (bring states up <)
    :started))

