--- a/samples/stringops.tp	Fri Aug 09 13:20:40 2013 -0700
+++ b/samples/stringops.tp	Fri Aug 09 20:12:04 2013 -0700
@@ -9,5 +9,13 @@
 
 		print: ("foobarbaz" from: 3) . "\n"
 		print: ("foobarbaz" from: 3 withLength: 3) . "\n"
+
+		foreach: ("foo,bar,baz,qux" splitOn: ",") :idx val {
+			print: val . "\n"
+		}
+
+		res <- "foobarbaz" partitionOn: "bar"
+		print: "Before: " . (res before) . "\n"
+		print: "After: " . (res after) . "\n"
 	}
 }