let
p_jk_adlgs s =
Str
.string_match reg_jkdlg s 0
||
Str
.string_match reg_jkprivdlg s 0