diff --git a/uniplot.ss b/uniplot.ss
index 53ed9eb..3044d1e 100755
--- a/uniplot.ss
+++ b/uniplot.ss
@@ -14,7 +14,8 @@
   (def csv (read-csv-lines (current-input-port)))
   (def names (car csv))
   (def lsts
-    (for/fold (lsts (repeat '() (length names)))
-	((row (cdr csv)))
-      (map cons (map parse-number row) lsts)))
+    (map reverse
+	 (for/fold (lsts (repeat '() (length names)))
+	     ((row (cdr csv)))
+	   (map cons (map parse-number row) lsts))))
   (displayln (line-plot lsts title: (if (null? args) "" (car args)) names: names)))