(ensure-reduced x)
If x is already reduced?, returns it, else returns (reduced x)
(defn ensure-reduced [x] (if (reduced? x) x (reduced x)))