(import '(org.jfree.data.xy XYSeries))

(defn to-xy-series [name xy-coll]
  (let [xyseries (XYSeries. name)]
    (loop [[x y] (first xy-coll) others (rest xy-coll)]
      (if (nil? x)
        xyseries
        (do  (.add xyseries x y)
             (recur (first others) (rest others)))))))