let leaf_ancestors klass_data = let leaves = get_leaves klass_data in let mangled l = List.map get_tname (map_lookup_list l klass_data.ancestors) in let ancestors l = (l, List.rev (mangled l)) in List.map ancestors leaves