(def (recv)
	(let ([data ""]
		  [chunk #f])
	(while (string-find? data "\n")
		(set! chunk (read-char (socket-intput sock)))
		(if (null? chunk)
			(error `lol "Conection Error")
			(string-append! data chunk)))
	(string-delete data "\r")))