34d1300 ^
1 2 3 4 5
data Tree a = Node a [Tree a] deriving (Eq, Show) bottomUp :: Tree Char -> [Char] bottomUp (Node v xs) = (concat $ map bottomUp xs) ++ [v]