anchor.diff:    let bin32<'T when 'T : comparison> =
       binN<'T> (matchHead HeadByte.Binary32) (binParser.byte4 |>> (binParser.toUInt32 >> int))
   
  -  let binary<'T when 'T : comparison> = choice [ bin8<'T>; bin16<'T>; bin32<'T> ]
  +  let binary<'T when 'T : comparison> =
  +    choice [
  +      bin8<'T>
  +      bin16<'T>
  +      bin32<'T>
  +    ]
   
     let private fixExtN<'T when 'T : comparison> head data (f: TypeCode -> byte [] -> ExtendedValue<'T>) =
       matchHead head
  
positive.code:       uint64'<'T>
      ]
  
    let int8'<'T when 'T : comparison> = matchHead HeadByte.Int8 >>. binParser.byte1 |>> (int8 >> (Int8: int8 -> MsgPackValue<'T>))
    let int16'<'T when 'T : comparison> = matchHead HeadByte.Int16 >>. binParser.int16 |>> (Int16: int16 -> MsgPackValue<'T>)
    let int32'<'T when 'T : comparison> = matchHead HeadByte.Int32 >>. binParser.int32 |>> (Int32: int -> MsgPackValue<'T>)
    let int64'<'T when 'T : comparison> = matchHead HeadByte.Int64 >>. binParser.int64 |>> (Int64: int64 -> MsgPackValue<'T>)
    let int'<'T when 'T : comparison> =
      choice [
        int8'<'T>
  
negative.code:     ]
  
    let float32'<'T when 'T : comparison> =
      matchHead HeadByte.Float32
      >>. binParser.floatP
      |>> (Float32: float32 -> MsgPackValue<'T>)
    let float64'<'T when 'T : comparison> =
      matchHead HeadByte.Float64
      >>. binParser.byteN 8
      |>> (fun xs -> Float64 (System.BitConverter.ToDouble(xs, 0)): MsgPackValue<'T>)
    let float'<'T when 'T : comparison> = float32'<'T> <|> float64'<'T>
  
  