module Printexc: sig .. end
sig
end
include Printexc
val register_exn_printer : ((exn -> string) -> exn -> string) -> unit
((exn -> string) -> exn -> string) -> unit