let fold_classes data folder init = let do_fold _ aklass result = folder result aklass in StringMap.fold do_fold data.classes init