1 2 3 4 5 6 7 8 9 10 11 12 13
to sleeptime output 10 end to test make "x sleeptime wait :x repeat 5 [ beep wait sleeptime ] end