                    includes (:includes cluster)
                    debug (:debug cluster)
                    log (:log cluster)]
+               (check-valid-options cluster :user :clients :addresses :parallel :includes :debug :log)
                (when-exit (nil? task)
                           (str "No task named " (name task-name)))
                (when-exit (and (empty? addresses)


  "
  [key value & kvs]
  (swap! *global-options* #(apply assoc (list* % key value kvs))))

(defn clear-options!
  "Clear global options"
  []

              (str "sudo " cmd)
              cmd)
        ssh-options (or (:ssh-options m) (find-client-options host user cluster :ssh-options))]
    (check-valid-options m :sudo :ssh-options :mode :scp-options)
	(log-with-tag host "ssh" ssh-options cmd)
	(exec host
          user
