let al_regexp = Pcre.regexp "[a-zA-Z]+"