main :: IO ()
main = do
 (tmax':suffixes':argv) <- getArgs
 let tmax = read tmax' :: Integer
 let suffixes = genList suffixes'
 case (tmax > 0) of
  False -> usage
  _ -> launch tmax suffixes argv
main :: IO ()
main = do
 (tmax':suffixes':argv) <- getArgs
 let tmax = read tmax' :: Integer
 let suffixes = genList suffixes'
 case (tmax > 0) of
  False -> usage
  _ -> launch tmax suffixes argv
main = do
 (tmax':suffixes':argv) <- getArgs
 let tmax = read tmax' :: Integer
 let suffixes = genList suffixes'
 case (tmax > 0) of
  False -> usage
  _ -> launch tmax suffixes argv