let handle_add_resp_team resp cgi = handle_generic 
  (Printf.sprintf "add_%s_to" (resp_to_string resp))
  (fun l t p g -> 
     let stu_list   = List.filter (fun t -> t.login = l) !student_list in 
       if ((List.length stu_list) = 1) then begin
         Printf.printf "Adding  : '%s' in team %d, group %d, project %s (%s)\n" 
           l t g (pa_to_string p) (resp_to_full_string resp);
         add_people_to_team (List.hd stu_list) resp p t;
         flush stdout;
       end;) cgi