let with_signal ?(signal_name = "USR2") ~catch run =     With_signal {signal_name; catch; run}