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"]
			}
		}}}
	}}}}
}