 
 (defn execute
   [conv command]
-  (.execute conv command))
+  (doto conv (.execute command)))
 
 (defn get-service
   [conv]


(defn set-event-listener
  [conv]
  (.setEventListener conv
                     (reify DDEClientEventListener
                       (onItemChanged [this topic item data]
                         (prn (str "Item Changed: " topic  " , " item  " , " data )))
                       (onDisconnect [this]
                         (prn (str "onDisconnect() called."))))))


(defn listen
  [conv]
  (.setEventListener conv
                     (reify DDEClientEventListener
                       (onItemChanged [this _ _ data]
                         (data))
                       (onDisconnect [this]
                         (prn (str "onDisconnect() called."))))))


(defn listen-and-print-data
  [conv]
  (.setEventListener conv
                     (reify DDEClientEventListener
                       (onItemChanged [this _ _ data]
                         (prn (str data)))
                       (onDisconnect [this]
                         (prn (str "onDisconnect() called."))))))


;; instantiate a DDEClientConversation



(defn connect
  [conv app topic]
  (doto conv (.connect app topic)))

(defn disconnect
  [conv]
  (doto conv .disconnect))

(defn start-advice
  [conv item]
  (doto conv (.startAdvice item)))

(defn stop-advice
  [conv item]
  (doto conv (.stopAdvice item)))

(defn poke
  [conv topic input]
  (doto conv (.poke topic input)))

(defn request
  [conv item]
