-- Exercise 7
intersperse :: [a] -> [[a]] -> [a]
intersperse _ [] = []
intersperse _ (x:[]) = x
intersperse separator (x:y:[]) = x ++ separator ++ y
intersperse separator (x:xs) = x ++ separator ++ (intersperse separator xs)
