let new_student n p l g = make_group g ~name:""; { name = n; pren = p; login = l; group = g; teams = new_teams(); numt = 0; numc = 0; nums = 0; team = 0; }