(defun get-json (socket)
  (let* ((accepted (usocket:socket-accept socket))
	 (stream (usocket:socket-stream accepted)))
    (json:decode-json stream)))