    (cond (= units :psi)
          (value-from-typical-range 5000 9000)
          (= units :kPa)
-         ((convert-units-f :psi :kPa) (typical-monitor-pressure :psi))
-         (= units :MPa)
-         ((convert-units-f :kPa :MPa) (/ (typical-monitor-pressure :kPa) 1000)))))
+         ((convert-units-f :psi :kPa) (typical-monitor-pressure :psi)))))
 
 (defn surface-treating-pressure-seq [arg]
   (cond (int? arg)

    (tuc/draw-normal mean sigma)))

(defn typical-monitor-pressure
  ([units]
   (cond (= units :psi)
         (first (p-mon-seq))
         (= units :kPa)
         ((convert-units-f :psi :kPa) (typical-monitor-pressure :psi))
         (= units :MPa)
         ((convert-units-f :kPa :MPa) (typical-monitor-pressure :kPa))))
  ([] (let [unit (rand-pressure-unit)]
        [unit (typical-monitor-pressure unit)])))

(defn typical-monitor-temperature
  ([] (let [units (rand-nth [:C :F])]

  #?(:cljs (:require [test-utils.core :as tuc])
     :clj (:require (test-utils [core :as tuc]))))

(def physical-quantities [:density
                          :energy
                          :force
                          :length
