anchor.diff:      case m_attr(content_md5, M) of
           undefined ->
               undefined;
  +        %% Multipart has 2-tuple coment_md5, {UUID, "-" ++ length(Parts)}}
  +        %% At least at the time I'm writing this code
  +        {UUID, Suffix} ->
  +            mochihex:to_hex(binary_to_list(UUID) ++ Suffix);
           MD5 ->
               mochihex:to_hex(MD5)
       end.
  
positive.code:     io:format("Record   : **tombstone**");
  maybe_print_user({tombstone, _}, _SiblingNo, _Options) ->
      ok;
  maybe_print_user(User, SiblingNo, {name, Name}) ->
      case user_attr(name, User) of
          Name ->
              print_user(User, SiblingNo);
          _ ->
              ok
      end;
  maybe_print_user(User, SiblingNo, {key, KeyPrefix}) ->
      case lists:prefix(KeyPrefix, user_attr(key_id, User)) of
          true ->
              print_user(User, SiblingNo);
          _ ->
              ok
      end.
  
  print_user(User, SiblingNo) ->
      io:nl(),
      io:format("User Key : ~s~n", [user_attr(name, User)]),
      io:format("SiblingNo: ~B~n", [SiblingNo]),
      io:format("Record   :~n"),
      print_record(User),
      print_user_verbose(User).
  
negative.code:       "name=Name~n"),
      e("Show CS user     : $ riak_cs_inspector.erl PB-IP PB-Port moss.users   "
        "key=KeyPrefix~n"),
      e("List access stats: $ riak_cs_inspector.erl PB-IP PB-Port moss.access~n"),
      e("Show access stats: $ riak_cs_inspector.erl PB-IP PB-Port moss.access  "
        "key=Key~n"),
      e("List access stats: $ riak_cs_inspector.erl PB-IP PB-Port moss.storage~n"),
      e("Show access stats: $ riak_cs_inspector.erl PB-IP PB-Port moss.storage "
        "key=Key~n"),
      e("~n"),
      e("NOTE1: Make sure riak_cs is in ERL_LIBS or code paths.~n"),
      e("  e.g. $ ERL_LIBS=/path/to/riak-cs/lib riak_cs_inspector.erl ...~n"),
  