How would I start this off?

The following Tree datatype implements a binary tree with a number in each node and leaf: (define-type Tree (leaf [val : Number]) (node [val : Number] [left : Tree] [right : Tree])) Implement the function negate, which takes a tree and returns a tree that has the same shape, but with all the numbers negated. Example: (negate (node 5 (leaf 6) (leaf 7))) should produce (node 5 (leaf 6 ) (leaf -7))