Основи на програмирането 2007/2008

newLine :: [String] -> IO()
newLine list
| isEmpty list = putStrLn ("END")
| otherwise = putStrLn (head list) >> newLine (tail list)

isEmpty :: [a]->Bool
isEmpty [] = True
isEmpty list = False