anchor.diff:  %% +--------+
   %% | byte   |
   %% +--------+
  -parse_s8(<<Int:8/signed-integer,Bytes/binary, Format, Acc) ->
  +parse_s8(<<Int:8/signed-integer,Bytes/binary>>, Format, Acc) ->
   	parse(Bytes, Format, [ { $b, Int } | Acc ]).
   
   %% tag W
  
positive.code: 	parse_array(Values, [ { $a, parse_array(Array,[]) } | Acc ]);
  parse_array(<<$o,Count:16/big-integer,Object:Count/binary,Values/binary>>, Acc) ->
  	parse_array(Values, [ { $o, parse_object(Object,[]) } | Acc ]); 	
  parse_array(<<_,Values/binary>>, Acc) ->
  	io:format("invalid tag in array~n").
  
  %% tag O
  
negative.code: 		$A -> parse_sarr(Bytes,Format,Acc);	% schema array
  		$a -> parse_arr(Bytes,Format,Acc);	% dynamic array
  		$O -> parse_sobj(Bytes,Format,Acc);	% schema object
  		$o -> parse_obj(Bytes,Format,Acc)	% dynamic object
  	end.
  
  %% tag B
  