pLn :: (Show a) => IO[a] -> IO()
pLn x = join $ fmap f x where
  f :: (Show a) => [a] -> IO()
  f xs = sequence_ $ fmap (putStrLn . show) xs
pLn :: (Show a) => IO[a] -> IO()
pLn x = join $ fmap f x where
  f :: (Show a) => [a] -> IO()
  f xs = sequence_ $ fmap (putStrLn . show) xs
pLn x = join $ fmap f x where
  f :: (Show a) => [a] -> IO()
  f xs = sequence_ $ fmap (putStrLn . show) xs