sig val compileApplication : CfAst.expr -> CfTypes.renv * (unit -> unit) end