(def (recv)
  (def data "")
  (while (string-find? data "\n")
         (def chunk (read-char (socket-intput sock)))
	 (if (null? chunk)
             (error 'lol "Conection Error")
             (string-append! data chunk))))