Js_of_ocaml_compiler.Deadcode
type variable_uses = int array
val f : Code.program -> Code.program * variable_uses
val remove_unused_blocks : Code.program -> Code.program
val merge_blocks : Code.program -> Code.program