die :: String -> IO a
die err = do hPutStrLn stderr err
             exitFailure
die :: String -> IO a
die err = do hPutStrLn stderr err
             exitFailure
die err = do hPutStrLn stderr err
             exitFailure