                stop-duration-s]]
      [start stop])))
 
-(defn treatment-times 
+(defn treatment-times
   ([] (treatment-times (typical-treatment-time-range)))
   ([start-treatment-time-range]
    (let [[start-0 stop-0] start-treatment-time-range

         start-duration-h (int start-duration)
         start-duration-min (int (* 60 (- start-duration start-duration-h)))
         start-duration-s (rand-nth (range 60))
         start [start-a start-mo start-d 
                (rem (+ start-h start-duration-h) 24) 
                (rem (+ start-min start-duration-min) 60) 
                start-duration-h]
         stop-duration (tuc/draw-normal 2.52 0.17)
         stop-duration-h (int stop-duration)

(ns test-utils.sandbox
  #?(:cljs (:require [test-utils.core :as tuc]
                     [test-utils.word-source :as ws])
     :clj (:require (test-utils [core :as tuc]
                                [word-source :as ws]))))

;; Stuff I'm trying out

