let () =
  let () = Sys.set_signal 2 (Sys.Signal_handle (fun _ -> failwith "foo")) in
  try
    let rec f () = f () in
    f ()
  with _ -> ()