anchor.diff:                      reader.Read() |> ignore
                       null
                   else
  -                    let length = reader.GetAttribute("length") |> int
  +                    let length = reader.GetAttribute("size") |> int
                       let bytes = Array.zeroCreate<byte> length
                       do reader.Read() |> ignore
                       if length > 0 then
  
positive.code: 
              member __.EndWriteObject () = writer.WriteEndElement()
  
              member __.PreferLengthPrefixInSequences = true
              member __.WriteNextSequenceElement hasNext = () //if not hasNext then writer.WriteEndElement()
  
              member __.WriteBoolean (tag : string) value = writePrimitive writer tag value
              member __.WriteByte (tag : string) value = writePrimitive writer tag (int value)
  
negative.code:                 if obj.ReferenceEquals(value, null) then
                      writer.WriteAttributeString("null", "true")
                  else
                      writer.WriteAttributeString("size", string value.Length)
                      writer.WriteBase64(value, 0, value.Length)
                  writer.WriteEndElement()
  
  