(let ([a '(1)])
  (and (begin (set-car! a (+ (car a) 1)) #f)
       (begin (set-car! a (+ (car a) 1)) #f))
  (car a)))