(force x)
If x is a Delay, returns the (possibly cached) value of its expression, else returns x
(defn force [x] (if (delay? x) (deref x) x))