let get_results g = try let a = ref [] in Results.iter (fun p r -> a:=(p,r)::!a) (Hpo.find system.results g) ; !a with Not_found -> []