removeEmptySublists :: [[a]] -> [[a]]
removeEmptySublists [] = []
removeEmptySublists (x:xs)
    | null x    = removeEmptySublists xs
    | otherwise = x : removeEmptySublists xs