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)