--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/cfold.lac	Thu Jun 26 09:48:54 2008 -0400
@@ -0,0 +1,10 @@
+con currier = fold (fn nm => fn t => fn acc => t -> acc) {}
+
+con greenCurry = currier []
+val greenCurry : greenCurry = {}
+
+con redCurry = currier [A = int, B = string]
+val redCurry : redCurry = fn x : int => fn y : string => {}
+
+con yellowCurry = currier [A = string, B = int, C = float]
+val yellowCurry : yellowCurry = fn x => fn y => fn z => {}