playground/haskell/99-problems/7.hs

-- Flatten list
-- incomplete

data NestedList a = Elem a
                  | List [NestedList a]

flatten :: NestedList -> list
flatten