let p_jk_pdlgs s = 
  Str.string_match reg_jkprivdlg s 0