let
pool () = ref 0