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