Js_of_ocaml_compiler.Effects
type cps_calls = Js_of_ocaml_compiler.Code.Var.Set.t
val f : (Code.program * Deadcode.variable_uses) -> Code.program * cps_calls