 (defn typical-fracture-azimuth []
   (tuc/draw-normal 90 30))
 
-(defn rand-length-unit []
-  (rand-nth [:ft :m]))
-
-(defn typical-fracture-geometry 
+(defn typical-fracture-geometry
   ([unit] [(map #(vector unit %) (typical-fracture-size unit)) (typical-fracture-azimuth)])
   ([] (typical-fracture-geometry (rand-length-unit))))
 

                   [:m :ft] #(/ (* % 100) 30.48)}]
    (converter [from to])))

(defn rand-pressure-unit []
  (rand-nth [:psi :kPa :MPa]))

(defn typical-monitor-pressure
  ([units]

          [unit (take arg (injection-rate-seq unit))])
        (keyword? arg)
        (repeatedly (fn [] (typical-injection-rate arg)))))

(defn typical-proppant-concentration
  ([]
