anchor.diff:  [<AutoOpen>]
   module FParsec.Pipes.DefaultParsers
   open FParsec
  -
  -type CaseInsensitive<'a> =
  -    | CaseInsensitive of 'a
  -
  -/// Mark `x` as being case insensitive.
  -/// Useful for use with `%`. For example `%ci "test"` is equivalent
  -/// to `pstringCI "test"`, while `%"test"` is equivalent to `pstring "test"`.
  -let ci x = CaseInsensitive x
   
   /// Parse a character case insensitively. Returns the parsed character.
   let pcharCI c : Parser<char, 'u> =
  
positive.code: 
      static member inline (%!!~~%) (DefaultParser, literal : char) = pchar literal
      static member inline (%!!~~%) (DefaultParser, literal : string) = pstring literal
      static member inline (%!!~~%) (DefaultParser, CaseInsensitive (literal : char)) = pcharCI literal 
      static member inline (%!!~~%) (DefaultParser, CaseInsensitive (literal : string)) = pstringCI literal 
      static member inline (%!!~~%) (DefaultParser, predicate : char -> bool) = satisfy predicate 
  
      static member inline (%!!~~%) (DefaultParser, anyOfThese : char list) =
  
negative.code:     static member inline (%!!~~%) (DefaultParser, anyOfThese : CaseInsensitive<string> list) =
          choice (anyOfThese |> List.map (function CaseInsensitive s -> pstringCI s)) 
  
      static member inline (%!!~~%) (DefaultParser, (count, parser)) = parray count parser
      static member inline (%!!~~%) (DefaultParser, _ : DefaultParserOf< ^a >) =
          DefaultParser %!!~~% (null : CustomDefaultParserOf< ^a >)
  and CaseInsensitive<'a> =
      | CaseInsensitive of 'a
      static member inline (%!!~~%) (DefaultParser, CaseInsensitive (literal : char)) = pcharCI literal 
      static member inline (%!!~~%) (DefaultParser, CaseInsensitive (literal : string)) = pstringCI literal 
  
  /// Mark `x` as being case insensitive.
  /// Useful for use with `%`. For example `%ci "test"` is equivalent
  /// to `pstringCI "test"`, while `%"test"` is equivalent to `pstring "test"`.
  let ci x = CaseInsensitive x
  
  /// Represents the default parser for the given type.
  /// If the type `'a` has a default parser implemented, `p<'a>`
  