let get_class_names data =
    let kids aklass = map_lookup_list aklass data.children in
    let rec append found = function
        | [] -> List.rev found
        | items -> let next = List.flatten (List.map kids items) in
            append (items@found) next in
    append [] ["Object"]