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

(define (blast-nonspace)
  (if (eqv? (robot-feel "space") #f) (robot-zap))
)

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

;;; make one sweep:

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

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

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

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