(define (rand-loop x y proc)
  (let loop ((v (rand x y))
    (proc v)
    (loop (rand x y))))

(rand-loop 2 5 (lambda (v) 
                  (msg velocity ,(v2 (rand -1 1)))
                  (continue-in v 'wander)))