--- a/functional.rhope	Tue Jul 06 07:52:59 2010 -0400
+++ b/functional.rhope	Wed Jul 07 00:36:59 2010 -0400
@@ -1,9 +1,6 @@
 
 _Fold[list,index,current,worker:out]
 {
-	Print["_Fold"]
-	{ Print[index]
-	{
 	newval <- [worker]Call[current, [list]Index[index], index]
 	
 	[list]Next[index]
@@ -12,18 +9,14 @@
 	}{
 		out <- Val[newval]
 	}
-	}}
 }
 
 Fold[worker,start,list:out]
 {
-	Print["Fold"]
 	[list]First
 	{
-		Print["Got first"]
 		out <- _Fold[list, ~, start, worker]
 	}{
-		Print["no first"]
 		out <- start
 	}
 }