putLines :: FilePath -> [String] -> IO ()
putLines file text = do
        h <- openFile file WriteMode
        hPutStr h $ unwords text
        hClose h
        return () 

-- get input
putLines :: FilePath -> [String] -> IO ()
putLines file text = do
        h <- openFile file WriteMode
        hPutStr h $ unwords text
        hClose h
        return () 

-- get input
putLines file text = do
        h <- openFile file WriteMode
        hPutStr h $ unwords text
        hClose h
        return () 

-- get input