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;
  }