(defmodule activemq_sample (export (main 0))) (defun main () (let ((conn (: stomp connect '"localhost" 61613 '"" '"" )) (f (lambda (msg) (: lfe_io fwrite '"~p~n" (list msg))))) (: stomp subscribe '"SampleQueue" conn) (: stomp on_message f conn) (: stomp disconnect conn) ) )