--- a/kernel.rhope	Sun Jun 19 10:43:11 2011 -0700
+++ b/kernel.rhope	Wed Jul 27 21:06:35 2011 -0700
@@ -348,4 +348,23 @@
 	}
 }
 
+==[a,b:out]
+{
+	bpa <- Blueprint Of[a]
+	bpb <- Blueprint Of[b]
+	If[[bpa]=[bpb]]
+	{
+		out <- [a]=[b]
+	}{
+		//Cheat for strings
+		[(String(),String Cat(),String Slice())]Find[=[?, bpa]]
+		{
+			[(String(),String Cat(),String Slice())]Find[=[?, bpb]]
+			{ out <- [a]=[b] }
+			{ out <- No }
+		}{
+			out <- No
+		}
+	}
+}