anchor.diff:          simpleFixType
         ]
   
  -    let parse input = parser (fun t xs -> Raw (t, xs)) input
  +    let parse input = parser (fun t xs -> Raw(t, xs)) input
  
positive.code:   let private extN<'T when 'T : comparison> head length (f: TypeCode -> byte [] -> ExtendedValue<'T>) =
      matchHead head
      >>. length
      >>= fun length -> binParser.byte1 >>= fun t -> binParser.byteN length |>> fun xs -> f t xs
      |>> Extended
  
    let ext8<'T when 'T : comparison> (f: TypeCode -> byte [] -> ExtendedValue<'T>) =
  
negative.code:   let private fixExtN<'T when 'T : comparison> head data (f: TypeCode -> byte [] -> ExtendedValue<'T>) =
      matchHead head
      >>. binParser.byte1
      >>= fun t -> data |>> f t
      |>> Extended
  
    let fixExt1<'T when 'T : comparison> f = fixExtN<'T> HeadByte.FixExtended1 (binParser.byteN 1) f
  