(write-all writer & ss)
(defn write-all [writer & ss] (loop [ss (seq ss)] (when-not (nil? ss) (-write writer (first ss)) (recur (next ss)))))