--Function that returns true if
--an element in contained in the list
contains :: Eq a => a -> [a] -> Bool

contains _ [] = False
contains a (x:xs) | a==x = True
		  | otherwise = contains a xs

--Function to remove all multiple
--occurences of elements in a list
unique :: Eq a => [a] -> [a]

unique [] = []
unique (x:xs) | contains x xs = unique xs
	      | otherwise = x:unique xs

innerList :: [[a]] -> [a]

innerList = foldr (++) []