Use exception to declare custom exception constructors.
exception
exception NotFound(string) let message = try { throw(NotFound("Missing value")) } catch { | NotFound(text) => text }
Exception