let get_result g p =
  try Results.get (Hpo.find system.results g) p
  with Not_found -> None