let
p_jk_dlgs s =
Str
.string_match reg_jkdlg s 0