diff --git a/examples/csv.scm b/examples/csv.scm
new file mode 100644
index 0000000..f7439f2
--- /dev/null
+++ b/examples/csv.scm
@@ -0,0 +1,22 @@
+(import (_six python)
+        (github.com/gambit/python))
+
+\import csv
+
+(define (read-csv path)
+  \f=open(`path)
+  \reader=csv.reader(f)
+  (let loop ((acc '()))
+    (with-exception-catcher
+     (lambda (e)
+       ;; The exception will be a pair (PyObject* . repr(PyObject*))
+       \f.close()
+       (if \isinstance(`(car e), StopIteration)
+           (reverse acc) ;; Return the result
+           (write e)))   ;; Propagate the exception
+     ;; Iterate using __next__() until StopIteration is raised
+     (lambda () (loop (cons \reader.__next__() acc))))))
+
+(pretty-print (read-csv (path-expand "~~userlib/github.com/gambit/python/@/examples/data.csv")))
+
+;; (("A" "B" "C") ("1" "2" "3"))
diff --git a/examples/data.csv b/examples/data.csv
new file mode 100644
index 0000000..12ad13e
--- /dev/null
+++ b/examples/data.csv
@@ -0,0 +1,2 @@
+A,B,C
+1,2,3