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)