anchor.diff:        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 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>
  
positive.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>
  
  
negative.code: 
    let private matchHead b = satisfy ((=) [| b |]) (binParser.byteN 1)
  
    let nil<'T when 'T : comparison> =
      matchHead HeadByte.Nil
      |>> konst (Nil: MsgPackValue<'T>)
  
    let false'<'T when 'T : comparison> =
      matchHead HeadByte.False
      |>> konst (Boolean false: MsgPackValue<'T>)
    let true'<'T when 'T : comparison> =
      matchHead HeadByte.True
      |>> konst (Boolean true: MsgPackValue<'T>)
    let bool'<'T when 'T : comparison> = false'<'T> <|> true'<'T>
  
    let positiveFixInt<'T when 'T : comparison> =
  