(spread arglist)
(defn spread [arglist] (when-not (nil? arglist) (let [n (next arglist)] (if (nil? n) (seq (first arglist)) (cons (first arglist) (spread n))))))