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