!7

p-exp {

  new L<PairS> out1;

  for (S line : tlft(userDir("Documents/give it away.txt"))) {

    continue if startsWith(line, "[");

    PairS p = splitAtFirstSpace(line);

    continue unless p != null;

    if (!regexpMatches("\\d:\\d\\d", p.a))

      continue with print("Weird: " + p);

    out1.add(p);

  }

  new LS out;

  for i over out1: {

    PairS p = out1.get(i);

    S nextTime = pairA(get(out1, i+1));

    int minute = parseInt(substring(p.a, 0, 1));

    int second = parseInt(substring(p.a, 2));

    second += 2;

    if (second >= 60) { second -= 60; ++minute; }

    S endTime = minute + ":" + formatInt(second, 2);

    if (nextTime != null && cmp(endTime, nextTime) > 0) endTime = nextTime;

    out.add("");

    out.add(str(i+1));

    out.add("00:0" + p.a + ",000 --> 00:0" + endTime + ",000");

    out.add(p.b);

  }

  printLines(out);

  saveTextFileVerbose(programDir("give it away.srt"), lines(out));

}