1 2 3 4 5
exception IntegerOverflow of unit exception Unimplemented of string let unimplemented msg = raise (Unimplemented ("unimplemented: " ^ msg))