anchor.diff:      io:format("----- ~B instance(s) -----~n", [length(Manifests)]),
       [ print_manifest(Manifest) || Manifest <- Manifests].
   
  +stats_sample_from_binary(Bin) ->
  +    {struct, Sample} = mochijson2:decode(binary_to_list(Bin)),
  +    stats_sample_from_binary(Sample, {undefined, undefined, undefined, []}).
  +
  +stats_sample_from_binary([], {Start, End, Node, Ops}) ->
  +    {Start, End, Node, Ops};
  +stats_sample_from_binary([{<<"StartTime">>, Start} | Rest],
  +                         {_Start, End, Node, Ops}) ->
  +    stats_sample_from_binary(Rest, {Start, End, Node, Ops});
  +stats_sample_from_binary([{<<"EndTime">>, End} | Rest],
  +                         {Start, _End, Node, Ops}) ->
  +    stats_sample_from_binary(Rest, {Start, End, Node, Ops});
  +stats_sample_from_binary([{<<"MossNode">>, Node} | Rest],
  +                         {Start, End, _Node, Ops}) ->
  +    stats_sample_from_binary(Rest, {Start, End, Node, Ops});
  +stats_sample_from_binary([{OpName, {struct, Stats}} | Rest],
  +                         {Start, End, Node, Ops}) ->
  +    stats_sample_from_binary(Rest, {Start, End, Node, [{OpName, Stats} | Ops]}).
  +
   count_riak_bucket(RiakcPid, Bucket, BucketToDisplay, Timeout) ->
       case riakc_pb_socket:stream_list_keys(RiakcPid, Bucket) of
           {ok, ReqId} ->
  
positive.code:              <- get_riak_object(RiakcPid, Bucket, UserKey),
           U <- [case RiakMD of
                     tombstone -> {tombstone, UserKey};
                     _ -> 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(),
  
negative.code:             case re:run(FirstChars, "\\A[[:graph:]]*\\z", []) of
                  nomatch ->
                      io:format("~-32s ~8B: ~10B ~64w~n",
                                [mochihex:to_hex(UUID), SeqNo,
                                 ByteSize, binary:part(Value, 0, min(8, ByteSize))]);
                  _ ->
                      io:format("~-32s ~8B: ~10B ~s~n",
                                [mochihex:to_hex(UUID), SeqNo,
                                 ByteSize, FirstChars])
              end
      end.
  
  show_block(RiakcPid, Bucket, UUIDHexFull, SeqStr) ->
      Seq = list_to_integer(SeqStr),
      Key = undefined, % The key of riak-cs object. Not needed currently.
      Value = get_block(RiakcPid, Bucket, Key, mochihex:to_bin(UUIDHexFull), Seq),
      io:format("~s~n", [Value]).
  
  get_block(RiakcPid, Bucket, Key, UUID, Seq) ->
      {RiakBucket, RiakKey} = full_bkey(Bucket, Key, UUID, Seq),
      case riakc_pb_socket:get(RiakcPid, RiakBucket, RiakKey) of
          {ok, RiakObject} ->
              riakc_obj:get_value(RiakObject);
          {error, notfound} ->
              notfound
      end.
  
  %% CS Utilities
  