 
 ;; ???
 (defn simulate []
-  ;; Create a map->FixedClockAdvancingTicker
+  ;; Create a map->ImpatientTicker
   )
 
 

                           :state (atom {})
                           :executor (or executor (new ScheduledThreadPoolExecutor 16))})))

(defrecord FixedClockAdvancingTicker []
  ITicker
  (start [this clock] nil)
  (pause [this] nil)


  (timeline [_]
    (:timeline @state))
  (clock [_]
    (:clock @state)))

(defn schedule
