(define (beep) (display "\a"))

(define (turn-and-feel)
  (robot-turn 1)
  (if (eqv? (robot-feel "prize") #t) (beep))
)

;;; make one sweep:

(turn-and-feel)
(sleep 1)
(turn-and-feel)
(sleep 1)
(turn-and-feel)
(sleep 1)
(turn-and-feel)
(sleep 1)
