let match_string (expr:string) (s:string) : result = 
 match_whole (Str.regexp expr) s