 
 
 (defn time-sm [state day-fn! night-fn!]
-  (let [dusk 0.3
-        dawn 0.4]
+  (let [dusk 0.12
+        dawn 0.20]
     {:state state
      :trans
         {:day

    (((:trans sm) (:state sm)) m)))


(defn init-state!
  [floor-btn roof-btn light-ain]
  (cond
    (closed? floor-btn) :night
    (closed? roof-btn) :day
    (> (read! light-ain) 0.35) :day
    :else :night))



                               (mtr-ctrl x)))]
               (close! p))))
    (loop [time-sm time-sm]
      (recur (trans-sm! timer (safe-read! light-ain))))))


(defn play []
