(use 'lamina.core 'aleph.http 'aleph.formats 'aleph.tcp 'gloss.core)

(defn handler [ch client-info]
  (receive-all ch
    #(println (str "You said " %))))

(start-tcp-server
  handler
  {:port 9000, :frame (string :utf-8 :delimiters ["\r\n"])})