(* Error report *)

val report_error: exn -> unit