Functor NestedList.hs