red-green.scm

   1 ; File: "red-green.scm"
   2
   3 (define loop
   4   (lambda ()
   5
   6     (led 'green)  ; set LED to green
   7     (putchar #\G) ; send a "G" to the console
   8     (led 'off)    ; turn off LED
   9     (sleep 100)   ; wait 1 second
  10
  11     (led 'red)    ; set LED to red
  12     (putchar #\R) ; send an "R" to the console
  13     (led 'off)    ; turn off LED
  14     (sleep 100)   ; wait 1 second
  15
  16     (loop)))      ; repeat
  17
  18 (loop)