let handle_del_team cgi = handle_generic "del_of"
            (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 "Remove  : '%s' in team %d, group %d, project %s\n" l t g 
                     (pa_to_string p);
                   remove_people_from_team (List.hd stu_list) p;
                   flush stdout;
                 end;) cgi