1structure regex :> regex = 2struct 3 4 open regexType; 5 6 fun match (r:Reg) (s:string) = raise Match; 7 8end 9 10