anchor.diff:  ﻿module SrtTools
   
  +open LLDatabase
   open System
  +open System.Globalization
   open System.IO
  +open System.Text
   
   // Tools for dealing with .srt subtitle files.
   type SrtEntry = {
  
positive.code:         | _ -> None
      Seq.unfold unfoldNextEntry (lines |> List.ofArray)
  
  
negative.code:     with
          override self.ToString() = 
              "SrtEntry(id = " + self.SubtitleId + ", timecodes = " + self.Timecodes + ", subtitle = " + self.Subtitle + ")"
  
  type SrtBlockExtractorEntry = {
          RelativePath: string
          OverrideBaseKey: string
          Id: int64
          Languages: string
          SubtitleIdStart: int
          SubtitleIdEnd: int
      }
  
  type SrtBlockExtractedEntry = {
          Entry: SrtBlockExtractorEntry
          Language: string
          Text: string
      }
  
  let parseSrtSubtitles(lines: string array) = 
      let unfoldNextEntry(s: string list): (SrtEntry * string list) option = 
  