--- a/samples/stringops.tp	Fri Aug 09 05:28:35 2013 -0700
+++ b/samples/stringops.tp	Fri Aug 09 10:05:20 2013 -0700
@@ -2,5 +2,9 @@
 	main <- {
 		print: "foo: " . 42 . "\n"
 		print: (string: (length: "foo" . "bar")) . "\n"
+		print: (string: ("foobarbaz" find: "foo" else: { "not found" })) . "\n"
+		print: (string: ("foobarbaz" find: "bar" else: { "not found" })) . "\n"
+		print: (string: ("foobarbaz" find: "baz" else: { "not found" })) . "\n"
+		print: (string: ("foobarbaz" find: "qux" else: { "not found" })) . "\n"
 	}
 }