let f g =
  try
    g ();
    2
  with Exit -> 1

let bar () = f (fun () -> raise Exit)