(*) Count the nodes of a multiway tree.
nnodes :: Tree a -> Int nnodes (Node _ ts) = 1 + sum (map nnodes ts)