(loop (let (B1 (pickBucket) B2 (pickBucket)) (dbSync) (let (V1 (; B1 val) V2 (; B2 val)) (cond ((> V1 V2) (dec> B1 'val) (inc> B2 'val)) ((> V2 V1) (dec> B2 'val) (inc> B1 'val)))) (commit 'upd)))
! (d)
-> T
!
(let (B1 (pickBucket) B2 (pickBucket)) (dbSync) (let (V1 (; B1 val) V2 (; B2 val)) (cond ((> V1 V2) (dec> B1 'val) (inc> B2 'val)) ((> V2 V1) (dec> B2 'val) (inc> B1 'val)))) (commit 'upd))
! (d)
-> T
!
(dbSync)
!
<hang> cant press enter