anchor.diff:  unhex(<<"\n">>) -> <<>>;
   unhex(<<H1,H2,Hex/binary>>) -> <<(list_to_integer([H1,H2], 16)), (unhex(Hex))/binary>>.
   
  -hex(<<>>) -> <<>>;
  -hex(<<H, Raw/binary>>) ->
  -  [H1,H2] = string:to_lower(lists:flatten(io_lib:format("~2.16.0B", [H]))),
  -  <<H1, H2, (hex(Raw))/binary>>.
  +hex(Binary) when is_binary(Binary) ->
  +  iolist_to_binary([string:to_lower(lists:flatten(io_lib:format("~2.16.0B", [H]))) || <<H>> <= Binary]).
   
   
   
  
positive.code: 
  unpack_size(Bin) -> list_to_integer(binary_to_list(Bin)).
  
  unzip(Zip) ->
    % Z = zlib:open(),
    % Raw = zlib:inflate(Z, Zip),
  
negative.code: 
  -export([init/1, path/1, read_object/2]).
  -export([refs/1]).
  
  -export([put_raw_object/3]).
  -include("log.hrl").
  -include_lib("eunit/include/eunit.hrl").
  
  