(load "/home/rohan/sw/sw-61/scheme/write.scm")

(write-string! ""       (current-output-port))
(write-string! "/s"     (current-output-port))
(write-string! "/go"    (current-output-port))
(write-string! "/OSC"   (current-output-port))

(write-value! 4        (current-output-port))
(write-value! 6.7      (current-output-port))
(write-value! "STRING" (current-output-port))

(write-types! '(6.7)    (current-output-port))
(write-types! '("s" 1)  (current-output-port))
(write-types! '(1 2 3)  (current-output-port))