let get_team (gl:student list) groupnum padd teamnum = 
  List.find_all (fun s -> 
                   ((s.group == groupnum) 
                   && ((student_team s padd) == teamnum))) gl