;; Suggested exercise:

(interp (parse '{{let/cc k k} {lambda {f} 2}})
        mt-env
        (doneK))