(let loop ((walk-time (rand 2 5)))
     (msg velocity ,(v2 (rand -1 1)))
     (continue-in walk-time 'wander)
     (loop (rand 2 5)))