let p_jk_dlgs s = 
  Str.string_match reg_jkdlg s 0