(define (make-server-socket type uri #!key (socket-options  '((hwm . 2))))
 (returning (socket) (make-socket type)
   (socket-set-options-from-alist! socket socket-options)
   (bind-socket socket uri)))