anchor.diff:      {more, pos_integer()} | {msgpack_term(), binary()} | {error, reason()}.
   unpack_(Flag, Payload)->
       PayloadLen = byte_size(Payload),
  -    case Flag of 
  +    case Flag of
   	16#C0 ->
   	    {nil, Payload};
   	16#C2 ->
  
positive.code:     compare_all(LTL, RTL).
  
  test_data()->
      [true, false, nil, 
       0, 1, 2, 123, 512, 1230, 678908, 16#FFFFFFFFFF,
       -1, -23, -512, -1230, -567898, -16#FFFFFFFFFF,
       123.123, -234.4355, 1.0e-34, 1.0e64,
  
negative.code: pack_array(L) when is_list(L)->
      case length(L) of
   	Len when Len < 16 ->
   	    << 2#1001:4, Len:4/integer-unit:1, (pack_array_(L, <<>>))/binary >>;
  	Len when Len < 16#10000 -> % 65536
  	    << 16#DC:8, Len:16/big-unsigned-integer-unit:1,(pack_array_(L, <<>>))/binary >>;
  	Len ->
  	    << 16#DD:8, Len:32/big-unsigned-integer-unit:1,(pack_array_(L, <<>>))/binary >>
      end.
  pack_array_([], Acc) -> Acc;
  pack_array_([Head|Tail], Acc) ->
      pack_array_(Tail, <<Acc/binary,  (pack(Head))/binary>>).
  
  % FIXME! this should be tail-recursive and without lists:reverse/1
  unpack_array_(<<>>, 0, RetList)   -> {lists:reverse(RetList), <<>>};
  