import Data.List (intersperse) import System.Environment (getArgs) main = do args <- getArgs let r = concat (intersperse " " args) putStrLn r