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