(reduced? r)
Returns true if x is the result of a call to reduced
(defn reduced? [r] (instance? Reduced r))