anchor.diff:  	{ $b, Rest }; 
   format(<< $f, Rest/binary>>) ->
   	{ $b, Rest }; 
  -format(<< $c, _Int:8, Rest/binary>>) ->
  +format(<< $c, _Int:8/signed, Rest/binary>>) ->
   	{ $c, Rest };
  -format(<< $C, _Int:8, Rest/binary>>) ->
  +format(<< $C, _Int:8/unsigned, Rest/binary>>) ->
   	{ $C, Rest };
   format(<< $w, _Int:16/big-integer, Rest/binary>>) ->
   	{ $w, Rest };
  
positive.code: 	L = size(String),
  	<< L:16/big-unsigned-integer, String/binary >>;
  data(Int) when is_integer(Int), Int >= -128, Int < 128 ->
  	<< Int:8 >>;
  data(Int) when is_integer(Int), Int >= 0, Int < 256 ->
  	<< Int:8 >>;
  data(Int) when is_integer(Int), Int >= -32768, Int < 32768 ->
  	<< Int:16/big-integer >>;
  data(Int) when is_integer(Int), Int >= 0, Int < 65536 ->
  
negative.code: 	extract(Rest,T, [ true | Acc ]);  
  extract(<<$f, Rest/binary>>, [ $b | T ], Acc ) ->
  	extract(Rest,T, [ false | Acc ]);
  extract(<<Int:8/signed-integer, Rest/binary>>, [ $c | T ], Acc ) ->
  	extract(Rest, T, [ Int | Acc ]);
  extract(<<Int:8/unsigned-integer, Rest/binary>>, [ $C | T ], Acc ) ->
  	extract(Rest, T, [ Int | Acc ]);
  extract(<<Int:16/big-integer, Rest/binary>>, [ $w | T ], Acc ) ->
  	extract(Rest, T, [ Int | Acc ]);
  