xitWithWorst rs = liftIO $
    case maximum rs of
        Success{}     -> exitSuccess
        Failure{}     -> exitWith $ ExitFailure 1
        Catastrophe{} -> exitWith $ ExitFailure 2

exitWithWorst rs = liftIO $
    case maximum rs of
        Success{}     -> exitSuccess
        Failure{}     -> exitWith $ ExitFailure 1
        Catastrophe{} -> exitWith $ ExitFailure 2
exitWithWorst rs = liftIO $
    case maximum rs of
        Success{}     -> exitSuccess
        Failure{}     -> exitWith $ ExitFailure 1
        Catastrophe{} -> exitWith $ ExitFailure 2