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