--- a/samples/testarray.tp	Tue Jul 10 23:18:14 2012 -0700
+++ b/samples/testarray.tp	Wed Jul 11 19:17:24 2012 -0700
@@ -1,11 +1,18 @@
 #{
+	sum <- :arr {
+		cursum <- 0
+		foreach: arr :idx el {
+			cursum <- cursum + el
+		}
+		cursum
+	}
 	main <- {
 		foo <- #[42 30 28]
-		sum <- 0
-		foreach: foo :idx el {
-			sum <- sum + el
-		}
-		sum
+		bar <- #[]
+		bar append: 30
+		bar append: 28
+		bar append: 42
+		(sum: foo) + (sum: bar)
 	}
 }