let ast_to_sast klass_data = let klasses = StringMap.bindings klass_data.classes in let to_sast (_, klass) = ast_to_sast_klass klass_data klass in List.map to_sast klasses