srecord TextCommentsID(S text, S comments, S id) {
  *(S *text) {}
  *(S *text, S *comments) {}
}