--- a/lib/ur/string.urs	Sat May 30 14:44:29 2009 -0400
+++ b/lib/ur/string.urs	Sun May 31 12:41:34 2009 -0400
@@ -10,6 +10,9 @@
 val index : t -> char -> option int
 val atFirst : t -> char -> option string
 
+val mindex : {Haystack : t, Needle : t} -> option int
+
 val substring : t -> {Start : int, Len : int} -> string
 
 val split : t -> char -> option (string * string)
+val msplit : {Haystack : t, Needle : t} -> option (string * char * string)