How to Send a Message to an Apache ActiveMQ Topic with MIT/GNU Scheme

(define stream (open-tcp-stream-socket "localhost" 61613))

(format stream "CONNECT~%~%~A" #\NUL)

(format stream "SEND~%destination:/topic/SampleTopic~%~%Simples Assim~A" #\NUL)

(format stream "DISCONNECT~%~%~A" #\NUL)

(close-port stream)