(define socket (make-client-socket "localhost" 61613)) (define in (socket-input socket)) (define out (socket-output socket)) (fprintf out "CONNECT~%~%~a" #\null) (flush-output-port out) (let loop ((line (read-line in))) (cond ((not (string=? line (string #\null))) (loop (read-line in))))) (fprintf out "SUBSCRIBE~%destination:SampleQueue~%~%ack:auto~%~%~a" #\null) (flush-output-port out) (let loop ((line (read-line in))) (cond ((not (string=? line "")) (loop (read-line in))))) (display (read-line in)) (fprintf out "DISCONNECT~%~%~a" #\null) (socket-close socket)