let pool () = ref 0