let find_resp_by_group_project (gl:student list) (gnum:int)
(padd:paddress) (resp:resp) (crit:criterion) (numbers:(int*int) list) =
let cpt = ref 0 in
List.iter (fun (size,num) ->
for i = 1 to num do
incr cpt;
for j = 1 to size do
let pro = find_random_member_by_group crit gl gnum padd in
set_resp pro padd !cpt resp ()
done
done) numbers