examples/count_up.scm


1
2
3
4
5
6

(define (main n)
  (c12832-cls)
  (c12832-print '(30 . 12) (number->string n))
  (mbed-wait-ms 500)
  (main (+ n 1)))
(main 0)