format_ERR : error_record -> string
- print
   (format_ERR {origin_structure = "Foo",
                origin_function = "bar",
                message = "incomprehensible input"});
Exception raised at Foo.bar:
incomprehensible input
> val it = () : unit