anchor.diff:                      token,accession,createPlatformRecord accession lexedPlatform
               loop token []
   
  -        let private parseSeriesEntity (token:SOFTToken) (en: IEnumerator<SOFTToken>) (accession: string) =
  +        let parseSeriesEntity (token:SOFTToken) (en: IEnumerator<SOFTToken>) (accession: string) =
                   let rec loop (token:SOFTToken) (lexedSeries:SOFTSeriesSpecifications list) = 
                       if en.MoveNext() then
                           let nextToken = en.Current
  
positive.code:     open Generated
      open Generated.Specifications
  
      let listMustContainExactlyOne failmessage l =
          match List.tryExactlyOne l with
          | Some v -> v
          | _ -> failwith failmessage
  
      let listMustContainOneOrMore failmessage (l: 'a list) =
          if l.Length >= 1 then
              l
          else failwith failmessage
  
negative.code:                         token,accession,createSeriesRecord accession lexedSeries
                  loop token []
  
          let parseSOFTEntities (soft: seq<SOFTToken>) : (Map<string,SeriesRecord>)*(Map<string,SampleRecord>)*(Map<string,PlatformRecord>) =
  
              let en = soft.GetEnumerator()
              let rec loop (token: SOFTToken) (seriesRecords: (string*SeriesRecord) list) (sampleRecords: (string*SampleRecord) list) (platformRecords: (string*PlatformRecord) list) = 
  