let get_services () = SG.memo (fun () -> Service.compute_services (get ()))