(if (pool-has-aids? pool) (begin (pool-close pool) (define (pool-still-aids) (pool-inspect pool) (if (pool-has-aids? pool) (pool-still-aids))) (pool-open pool)))