let sort ?(comp = compare) t = let rec aux { content = n ; children = c } = node n (List.map aux (List.sort comp c)) in aux t