myAction.hs -> n 을 입력받고, n 줄만큼의 문자열을 입력받아 이를 공백으로 연결하여 출력한다.

myAction0.hs

main = do
  n <- readLn :: IO Int
  a <- sequence . replicate n $ getLine
  putStrLn . unwords $ a
  
-- do 가 아닌 모나드 연산자를 이용한 결합.
main' = (readLn :: IO Int) >>= (\n -> (sequence . replicate n $ getLine) >>= (\a -> puStrLn . unwords $ a))

myAction1.hs

-- sequnce . replicate n = replicateM n 
import Control.Monad
main = (readLn :: IO Int) >>= (\n -> replicateM n getLine >>= (\a -> putStrLn $ unwords a))