anchor.diff:                      else
                           Broken token
   
  -    module Parsing =
  +    module internal Parsing =
   
           open Tokenization
           open Generated.Lexing
           open System.Collections.Generic
   
  -        let private parseSampleEntity (token:SOFTToken) (en: IEnumerator<SOFTToken>) (accession: string) =
  +        let parseSampleEntity (token:SOFTToken) (en: IEnumerator<SOFTToken>) (accession: string) =
               let rec loop (token:SOFTToken) (lexedSample:SOFTSampleSpecifications list) =
                   if en.MoveNext() then
                       let nextToken = en.Current
  
positive.code:                     token,accession,createPlatformRecord accession lexedPlatform
              loop token []
  
          let private parseSeriesEntity (token:SOFTToken) (en: IEnumerator<SOFTToken>) (accession: string) =
                  let rec loop (token:SOFTToken) (lexedSeries:SOFTSeriesSpecifications list) = 
                      if en.MoveNext() then
                          let nextToken = en.Current
  
negative.code:     open Generated
      open Generated.Specifications
  
      let private listMustContainExactlyOne failmessage l =
          match List.tryExactlyOne l with
          | Some v -> v
          | _ -> failwith failmessage
  
      let private listMustContainOneOrMore failmessage (l: 'a list) =
          if l.Length >= 1 then
              l
          else failwith failmessage
  