```racket
(actor
 (forever #:collect [(balance 0)]
   (assert (account balance))
   (on (message (deposit $amount))
       (+ balance amount))))
```