I made the following N-ary tree data type:
data Tree a = Leaf a | Node a [Tree a] deriving (Show)
with the following method:
l