PasteRack.org
Paste # 39397
2017-06-15 10:31:14

Fork as a new paste.

Paste viewed 46 times.


Embed:

#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")	
)