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