#lang racket
(define ( tray-test)
(set! n 0)
(set! a 0)	
	(while (< a 15)
		(raise-tray)
		(lower-tray)
		(set! a (+ a 1))
		(nap-log "")
		(nap-log a)
		(nap-log "")	
	)
(nap-log "  tray test is done")	
)