anchor.diff:      { partial, nil, nil }.
   
   
  -parse_list(<<L1,L2,L3,L4, Data/binary>>) ->
  -    Len = L1 * (256*256*256) + L2 * (256*256) + L3 * 256 + L4,
  -    Parsed = parse_elements(Len, Data, [<<L1,L2,L3,L4>>]),
  +parse_list(<<Size:4/binary, Data/binary>>) ->
  +    Len = parse_4_byte_size(Size), %L1 * (256*256*256) + L2 * (256*256) + L3 * 256 + L4,
  +    Parsed = parse_elements(Len, Data, [<<Size/binary>>]),
       {Result, Elements, Data2 } = Parsed,
       case Result of
   	ok ->
  
positive.code:     { partial, nil, nil }.
  
  
  parse_integer(<<B1,B2,B3,B4, Data/binary>>) ->
      { ok, <<98,B1,B2,B3,B4>>, Data };
  
  parse_integer(_Data) ->
      { partial, nil, nil }.
  
negative.code: 	_       -> Parsed
      end.
  		   
  parse_4_byte_size(<<L1,L2,L3,L4>>) ->    
      L1 * (256*256*256) + L2 * (256*256) + L3 * 256 + L4.
  