(unreduced x)
If x is reduced?, returns (deref x), else returns x
(defn unreduced [x] (if (reduced? x) (deref x) x))