;; A store through a pointer is the same escape wearing a different hat: the
;; pointer names storage this frame does not own, so the value would outlive
;; the environment it carries.
(defn stash [p (Ptr (Fn [] i32))  f (Fn [] i32)] ()
  (set (deref p) f))

(defn main [] i32 0)