anchor.diff:               <- get_riak_object(RiakcPid, Bucket, UserKey),
            U <- [case RiakMD of
                      tombstone -> {tombstone, UserKey};
  -                   _ -> binary_to_term(ValueBin)
  +                   _ -> {RiakMD, binary_to_term(ValueBin)}
                  end]]
        || UserKey <- Keys].
  -    %% [
  -    %% lists:foreach(
  -    %%   fun(UserKey) ->
  -    %%           {ok, RiakObj} = riakc_pb_socket:get(RiakcPid, Bucket, UserKey),
  -    %%           MDAndValues = riakc_obj:get_contents(RiakObj),
  -    %%           [print_user(MD, Value, Options)
  -    %%            || {MD, Value} <- MDAndValues]
  -    %%   end, Keys).
   
   maybe_print_user({tombstone, UserKey}, SiblingNo, {key, UserKey}) ->
       io:nl(),
  
positive.code:       "key=Key~n"),
      e("List blocks      : $ riak_cs_inspector.erl PB-IP PB-Port CS-Bucket    "
        "key=Key uuid=UUIDPrefix~n"),
      e("List GC bucket   : $ riak_cs_inspector.erl PB-IP PB-Port riak-cs-gc~n"),
      e("Count GC bucket  : $ riak_cs_inspector.erl PB-IP PB-Port riak-cs-gc   "
        "count~n"),
  
negative.code: %% This scripts based on @kuenishi's work.
  
  %% TODOs:
  %% - MP manifest support (part manifest are not pretty-printed yet)
  %% - key streaming instead of key listing, or use 2i streaming to keep result sorted
  
  -export([main/1]).
  