`val iter_block_free_vars : (Code.Var.t -> unit) -> Code.block -> unit`
`val iter_block_bound_vars : (Code.Var.t -> unit) -> Code.block -> unit`
`val iter_instr_free_vars : (Code.Var.t -> unit) -> Code.instr -> unit`
`val iter_last_free_var : (Code.Var.t -> unit) -> Code.last -> unit`
`val find_loops_in_closure : Code.program -> Code.Addr.t -> Code.Addr.t Js_of_ocaml_compiler.Code.Addr.Map.t`
`val f_mutable : Code.program -> Js_of_ocaml_compiler.Code.Var.Set.t Js_of_ocaml_compiler.Code.Addr.Map.t`
`val f : Code.program -> Js_of_ocaml_compiler.Code.Var.Set.t Js_of_ocaml_compiler.Code.Addr.Map.t`