--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/teststring.rhope	Thu Jul 08 21:55:47 2010 -0400
@@ -0,0 +1,30 @@
+
+Main[]
+{
+	barbaz <- [right]Append["baz"]
+	,right <- ["foobar"]Slice[3]
+	{ Print[~]
+	{ Print[right] 
+	{ Print[barbaz]
+	{
+		bar,baz <- [barbaz]Slice[3]
+		{ Print[bar]
+		{ Print[baz]
+		{
+			If[[bar]=[ [["b"]Append["a"]]Append["r"] ]]
+			{
+				Print["Comparison OK"]
+				{
+					,delim,after <-["foshizzlemynizzle"]Partition["my"]
+					{ Print[~]
+					{ Print[delim]
+					{ Print[after] }}}
+					
+				}
+			}{
+				Print["Comparison failed"]
+			}
+		}}}
+	}}}}
+}
+