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