#lang racket
(require "firmata.rkt")
(open-firmata "/dev/cu.usbserial-A5002tPQ")

(set-pin-mode! 13 OUTPUT_MODE)

(define (loop)
  (set-arduino-pin! 13)
  (sleep 1)
  (clear-arduino-pin! 13)
  (sleep 1)
  (loop))

(loop)