(define socket (make-client-socket "localhost" 61613)) (define out (socket-output socket)) (fprintf out "CONNECT~%~%~a" #\null) (fprintf out "SEND~%destination:SampleQueue~%~%Simples Assim~a" #\null) (fprintf out "DISCONNECT~%~%~a" #\null) (socket-close socket)