let print_project_xml (hpr:string -> unit) (groupnum:int) (padd:paddress) = let x = project_to_xml (get_group_project groupnum padd) in hpr (Xml.to_string_fmt x)