let foo x =
  match x with
    1 -> raise My_Exception
  | 2 -> raise (Another_Exception "hi mom")
  | _ -> 5
;;