datatype Tree<T> = Leaf(data: T)
| Node(left: Tree<T>, right: Tree<T>)

function Mirror<T>(t: Tree<T>): Tree<T> {
    match t
    case Leaf(_) => t
    case Node(left, right) => Node(Mirror(right), Mirror(left))
}