module Brute: sig .. end
sig
end
exception Succeed
exception Fail
exception Too_hard
val match_pattern : int Pervasives.ref -> pattern -> string -> bool
int Pervasives.ref -> pattern -> string -> bool