let apply_closure env labels closure =
    let label = Clabels.lookup labels (M.label_at_closure closure) in
    let mem = M.mem_at env.frame label in
    M.userdef_closure mem closure