let
register pool v =
pool.inhabitants <- v :: pool.inhabitants