let raises f =
  try
    f ();
    None
  with e ->
    Some e