--- a/src/prim.sml	Sat Nov 08 13:15:00 2008 -0500
+++ b/src/prim.sml	Sat Nov 08 14:42:52 2008 -0500
@@ -67,4 +67,16 @@
 
       | _ => false
 
+fun compare (p1, p2) =
+    case (p1, p2) of
+        (Int n1, Int n2) => Int64.compare (n1, n2)
+      | (Int _, _) => LESS
+      | (_, Int _) => GREATER
+
+      | (Float n1, Float n2) => Real64.compare (n1, n2)
+      | (Float _, _) => LESS
+      | (_, Float _) => GREATER
+
+      | (String n1, String n2) => String.compare (n1, n2)
+
 end