let student_team (s:student) (padd:paddress) = 
  try _team s padd with _ -> 100