removeEmpty :: [[a]] -> [[a]]
removeEmpty [] = []
removeEmpty ([]:xs) = removeEmpty xs
removeEmpty (x:xs) = x : removeEmpty xs