let print_student_xml (hpr:string -> unit) (gl:student list) 
      (paddl:paddress list) (s:student) = 
    let xs = student_to_xml s in
      hpr (Xml.to_string_fmt xs)