 			   (let [task-arg-count (- (arg-count task) 3)]
 				 (when-exit (not= task-arg-count (count args)) (str "Task " (name taskName) " just needs " task-arg-count " arguments")))
 			   (let [map-fn (if parallel pmap map)]
-				 (println  (str bash-bold "Performing " (name clusterName) bash-reset (if parallel " in parallel")))
+				 (println  (cli-bash-bold "Performing " (name clusterName) (if parallel " in parallel")))
 				 (dorun (pmap #(perform % user cluster task taskName args) addresses))
 				 (dorun (pmap #(perform (:host %) (:user %) cluster task taskName args) clients))
 				 (shutdown-agents)))))

	(.waitFor process)))
(defn gen-log
  [host tag content]
  (str bash-redbold host ":" bash-greenbold tag ": " bash-reset (join " " content)))

(defn log-with-tag
  [host tag & content]

(defn- perform
  [host user cluster task taskName arguments]
  (do
	(println (cli-bash-bold "Performing " (name taskName) " for " host))
	(apply task host user cluster arguments)))

(defn- arg-count [f] (let [m (first (.getDeclaredMethods (class f))) p (.getParameterTypes m)] (alength p)))
