let student_resp (s:student) (padd:paddress) = 
  try _resp s padd with _ -> Zero