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"]