 
     ))
 
-(defn create-contract [symbol]
+(defn create-contract [symbol type]
   (doto (com.ib.controller.NewContract.)
     (.symbol symbol)
-    (.secType com.ib.controller.Types$SecType/STK)
+    (.secType type)
     (.expiry "")
     (.strike 0.0)
     (.right com.ib.controller.Types$Right/None)

             :refer [>! <! >!! <!! go chan buffer close! thread
                     alts! alts!! timeout go-loop]])
  [:import com.ib.controller.ApiController
           (com.ib.controller ApiController$TopMktDataAdapter)
           ])



  "the main function"
  []
  (start))


(start)