anchor.diff:      KnownNames = [{riak_cs_utils:md5(list_to_binary(B)), B}
                     || B <- ?KNOWN_BUCKETS],
       {ok, RiakBuckets} = riakc_pb_socket:list_buckets(RiakcPid),
  -    io:format("All buckets:~n"),
  -    io:format("[~-7s] ~-32..=s = ~-32..=s~n",
  -              [type, "cs-bucket-name ", "riak-bucket-name "]),
  +    heading("All buckets:~n"),
  +    heading("[~-7s] ~-32..=s = ~-32..=s~n",
  +            [type, "cs-bucket-name ", "riak-bucket-name "]),
       [io:format("[~-7s] ~-32s = ~w~n", cs_bucket_info(RiakBucket, KnownNames))
        || RiakBucket <- lists:sort(RiakBuckets) ].
   
  
positive.code: 
  -spec list_cs_buckets(pid()) -> any().
  list_cs_buckets(RiakcPid)->
      io:format("~-64..=s ~-8..=s: ~-40..=s~n",
                ["CS Bucket Name ", "Sibl. ", "Owner Key "]),
      {ok, Keys} = riakc_pb_socket:list_keys(RiakcPid, "moss.buckets"),
      lists:foreach(fun(Key) ->
                            [io:format("~-64s ~-8B: ~-40s~n", [Key, SiblingNo, V])
  
negative.code:     end.
  
  list_accesses(RiakcPid) ->
      heading("~-40..=s ~-8..=s: ~-16..=s ~-16..=s ~-32..=s~n",
              ["Key ", "Sibl. ", "StartTime ", "EndTime ", "MossNode "]),
      {ok, Keys} = riakc_pb_socket:list_keys(RiakcPid, "moss.access"),
      [[io:format("~-40s ~8B: ~-16s ~-16s ~-32s~n",
                  [Key, SiblingNo, Start, End, Node])
        || {SiblingNo, {MD, V}} <- get_riak_object(RiakcPid, "moss.access", Key),
           {Start, End, Node, _Stats} <-
               [case MD of
                    tombstone -> tombstone;
                    _ -> stats_sample_from_binary(V)
                end]]
       || Key <- lists:sort(Keys)].
  
  show_access(_RiakcPid, undefined)->
  