let find_student (gl:student list) (login:string) = try List.find (fun s -> (String.compare s.login login) = 0) gl; with Not_found -> failwith (Printf.sprintf "Student '%s' not found in student list" login)