line buffering added by jyc on Tue Aug 6 04:57:27 2013

(use posix)
;(set-buffering-mode! (current-output-port) #:none)
(write "hi")(write "hi")
(sleep 3)