main :: IO ()
main = Lib.parseArguments >>= \(Just config) -> do
  masterH <- CL.registerWithMaster config

  cLIissueRequests masterH

  --children <- issueNRequests masterH 1000 []

  --mapM_ takeMVar children
main :: IO ()
main = Lib.parseArguments >>= \(Just config) -> do
  masterH <- CL.registerWithMaster config

  cLIissueRequests masterH

  --children <- issueNRequests masterH 1000 []

  --mapM_ takeMVar children
main = Lib.parseArguments >>= \(Just config) -> do
  masterH <- CL.registerWithMaster config

  cLIissueRequests masterH

  --children <- issueNRequests masterH 1000 []

  --mapM_ takeMVar children