 (def rand-force-unit (rand-unit :force))
 (def rand-length-unit (rand-unit :length))
 (def rand-mass-unit (rand-unit :mass))
+(def rand-power-unit (rand-unit :power))
 (def rand-pressure-unit (rand-unit :pressure))
 (def rand-proppant-concentration-unit (rand-unit :proppant-concentration))
 (def rand-slurry-rate-unit (rand-unit :slurry-rate))

                          :force
                          :length
                          :mass
                          :pressure
                          :proppant-concentration
                          :slurry-rate

     (condp = force-unit
       :lbf [typical-force-lbf force-unit]
       :N   [((convert-units-f :lbf :N) typical-force-lbf) force-unit]))))

(defn typical-power
  ([] (typical-power (rand-power-unit)))
  ([power-unit]
   (let [typical-energy (first (typical-total-pump-energy :J))
         typical-power  (condp = power-unit
                          :W  typical-energy ;; Assume energy expended for 1 s
                          :hp ((convert-units-f :W :hp) (first (typical-power :W))))]
     [typical-power power-unit])))
