2 let f1 x = printf "f1 %d@." x;;
3 let f2 x = printf "f2 %f@." x;;
4 let f3 x = printf "f3 %s@." x;;
8 raise (Failure "test");;
10 (* Note that I need to give the complete name for eprintf since
11 Format is not opened in the new environment of global_handler. *)
12 Format.eprintf "global_handler: %s@." (Printexc.to_string e)