(def (compp x)
  (if(<	1 (length x))
     (let ([t (take x 2)])
       (compp (append (if (apply > t)
                          (take	t 1) (cdr t))
                      (drop x 2))))
     (first x)))


(+ 1 1)

(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))))