     (mseq->m sirs :request-id)))
 
 
-
-
-(defn good-strings [vs]
-  (and (sequential?  vs)
-       (every? string? vs)
-       (every? pos? (map count vs))))
-
 (defn request-instances [rs]
   (let [d (describe-spot-instance-requests :spot-instance-request-ids rs)]
     (map :instance-id (:spot-instance-requests d))))

                      (cancel-requests rs)
                      nil)
           (= c cl) (recur (inc i))))))))


(def ag (ssh/ssh-agent {}))

          (>! c req) (close! c)))
    c))



