     (load-control-file project)
     (if-let [cluster-name (first args)] 
       (doseq
-        [c (:clients ((keyword cluster-name) @clusters))]
-        (println (str (:user c) "@" (:host c)))))))
+          [c (:clients ((keyword cluster-name) @clusters))
+           a (:addresses ((keyword cluster-name) @clusters))]
+        (println (str (:user c) "@" (:host c)))
+        (println (str (:user @clusters) "@" a))))))
 
 (defn control
   "Leiningen plugin for Clojure-Control"
   {:help-arglists '([subtask [cluster task [args...]]])
    :subtasks [#'init #'run #'show]}
   ([project]
-    (println (help-for "control")))
+     (println (help-for "control")))
   ([project subtask & args]
-    (case subtask
-      "init" (apply init project args)
-      "run" (apply run project args)
-      "show" (apply show project args)
-      (println (help-for "control")))))
+     (case subtask
+           "init" (apply init project args)
+           "run" (apply run project args)
+           "show" (apply show project args)
+           (println (help-for "control")))))
 
 

      (refer-clojure)
      (use '[control core commands])
      (load-file
        (or 
          (get-config project :control-file)
          "./control.clj")))
  (catch java.io.FileNotFoundException e (println "control file not found."))))

(defn- run-control [project args]
  (do

  (let [control-file (file "." "control.clj")]
    (if-not (.exists control-file)
      (spit control-file 
            (str 
             "(defcluster :default-cluster\n"
             "  :clients [\n"
             "    {:host \"localhost\" :user \"root\"}\n"
             "  ])\n"
             "\n"
             "(deftask :date \"echo date on cluster\""
             "  []\n"
             "  (ssh \"date\"))\n")))))

(defn run
  "Run user-defined clojure-control tasks against certain cluster"
