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