let close bindings p =
    apply_bindings (fun _ -> None) bindings p