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