withoutBoss = mconcat $ map (uncurry moreFun) lst
in
(withBoss, withoutBoss)
+
+-- exercise 4
+-- maxFun
+maxFun :: Tree Employee -> GuestList
+maxFun = uncurry moreFun . maxFunPair
+
+maxFunPair :: Tree Employee -> (GuestList, GuestList)
+maxFunPair (Node e es) = nextLevel e $ map maxFunPair es
+