anchor.diff:  %%
   parse(<<Schema:8,Bytes/binary>>, Acc) -> 
   	Format = schema:lookup(Schema),
  -	parse(Bytes,Format,Acc)).
  +	parse(Bytes,Format,Acc).
   
   parse(<<>>,[],Acc) ->
   	lists:reverse(Acc);
  -parse(<<>>,Format,Acc) ->
  +parse(<<>>,_Format,_Acc) ->
   	io:format("incomplete message~n");
   parse(<<Bytes/binary>>,[], Acc ) ->
   	io:format("extra data ~p~n", [ Bytes ]),
  
positive.code: 	parse_object(Values, [ { Key, $a, parse_array(Array,[]) } | Acc ]);
  parse_object(<<Keylen:16/big-integer,Key:Keylen/binary,$o,Count:16/big-integer,Object:Count/binary,Values/binary>>, Acc) ->
  	parse_object(Values, [ { Key, $o, parse_object(Object,[]) } | Acc ]); 	
  parse_array(<<Keylen:16/big-integer,Key:Keylen/binary,_,Values/binary>>, Acc) ->
  	io:format("invalid tag in object~n").
  
  
  
negative.code: %% +--------+
  %% | byte   |
  %% +--------+
  parse_s8(<<Int:8/signed-integer,Bytes/binary>>, Format, Acc) ->
  	parse(Bytes, Format, [ { $b, Int } | Acc ]).
  
  %% tag W
  