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