let do_something_group ifok orelse gnum = 
  let rec get_rec l = match l with 
    | []   -> orelse()
    | x::c -> if (x.num = gnum) then (ifok x)
      else get_rec c
  in get_rec !all_groups