main :: IO ()
main = do
  (success, output) <- client
  L.putStr output
  unless success exitFailure
main :: IO ()
main = do
  (success, output) <- client
  L.putStr output
  unless success exitFailure
main = do
  (success, output) <- client
  L.putStr output
  unless success exitFailure