A select-based chat server in Clojure