(** Two exceptions recommended for use with the library. *)
exception SoftError of string
exception HardError of string
let error s = raise (SoftError s)