(let* ((server (usocket:socket-listen "localhost" 9001))
       (connect (usocket:socket-connect "localhost" 9001))
       (accept (usocket:socket-accept server))
       (output (make-array 5)))
  (unwind-protect
       (progn
         (write-string "asdf" (usocket:socket-stream connect))
         (read-sequence output (usocket:socket-stream accept))
         output)
    (usocket:socket-close server)
    (usocket:socket-close accept)))