main :: IO ()
main = do
  args <- getArgs
  mapM_ ((mapM_ printEntry =<<) . (liftM readMessages <$> loadStream)) args
main :: IO ()
main = do
  args <- getArgs
  mapM_ ((mapM_ printEntry =<<) . (liftM readMessages <$> loadStream)) args
main = do
  args <- getArgs
  mapM_ ((mapM_ printEntry =<<) . (liftM readMessages <$> loadStream)) args