sig
  val parse_file_from_xml : Pervasives.in_channel -> Student.student list
  val load_student_file : string -> unit
end