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