let to_list tree = let rec aux { content = t ; children = l } = t :: (List.flatten (List.map aux l)) in aux tree