(let [ts (TimeSeries. "TataSteel" Second)
      ts-col (TimeSeriesCollection.)]
  (doseq []
    (doseq [tick (map #(vector (:date %)
			     ((comp second (fn [x] (nth x 2)) :ticks) %))
		    *data-buffer*)]
      (if (and tick (second tick))
	(.add ts (Second. (first tick)) (second tick))))
    (.addSeries ts-col ts)
    (let [frame (ChartFrame. "Test" 
			     (ChartFactory/createTimeSeriesChart 
			      "TataSteel"
			      "Time" 
			      "Price" 
			      ts-col
			      true
			      true
			      false))]
      (.pack frame)
      (.setVisible frame true))))