sS extractYMDminusHMS(S s) {
  ret regexpExtract("\\d{8}-\\d{6}", s);
}