(require (lib "rscB.ss" "rscB")
	 (lib "rscO.ss" "rscO"))

(define u (udp! (list "127.0.0.1" 57110)))

(udp-send! u (osc->u8v '("/status")))

(udp-recv! u 0.1)			; => #"status.reply..."

(osc-send! u '("/status"))

(osc-recv! u 0.1)			; => ("status.reply" ...

(osc-request! u "status.reply" '("/status") 0.1)

(define (server-alive? u t)
  (if (osc-request! u "status.reply" '("/status") t) #t #f))

(server-alive? u 0.1)			; => #t

(osc-send! u '("/quit"))

(server-alive? u 0.1)			; => #f