let count_items g = let rec iter g = let l = List.map iter g.group_groups in let sum = List.fold_left (+) 0 l in let nitems = List.length g.group_items in sum + nitems in iter g