                                           (>! out v))
          :else                        (do (debug "Still" v "Waiting" time-wait)
                                           (<! (timeout (* 1000 time-wait)))
+                                          (debug "Woke up after wait...")
                                           (recur)))))
     out))
 

                 :subnet-id                  (get my-subnets zone)
                 :iam-instance-profile       {:arn "arn:aws:iam::633840533036:instance-profile/girder-peer"}}]
        (apply request-spot-instances req)]
    (println req)
    (map :spot-instance-request-id  (:spot-instance-requests r))))

#_(defn patience


(defn- give-up-and-cancel [req & [msg]]
  (when msg (debug msg))
  (concat  (some-> req :is terminate)
           (some-> req :rs cancel)))

(defn request-spots [req]
  (let [args    (apply concat (seq req))
