 
 (if (not (o/server-connected?))
   ;(o/boot-external-server 57110)
-  (o/connect-external-server 57120)
+  (o/connect-external-server 57110)
+)
+(if (not (o/server-connected?))
+  (o/connect-external-server 57121)
 )
 
 (require '[overtone.inst.synth :as syn])

                                     :listen [:action melody-chooser])
                           ])))

(defn -main [& args]
  (-> control-frame pack! show!)
  ;;(make-melody-canvas "test-canvas")

                                           (transform-necklace
                                                   (transpose-names (get-e-val e))
                                                   id :pitches))])]
    (value! reflect-button 0)
    (horizontal-panel :items [reflect-button translabel transbox])))

;;;;;;;;;;;;;; transforms end
