anchor.diff:  user_verbose_format(_) ->
       undefined.
   
  -list_blocks(RiakcPid, Bucket, "key=" ++ Key, "uuid=" ++ UUIDHexPrefix) ->
  +list_blocks(_, undefined, _, _) ->
  +    usage(block, list),
  +    halt(1);
  +list_blocks(_, _,undefined, _) ->
  +    usage(block, list),
  +    halt(1);
  +list_blocks(_, _, _, undefined) ->
  +    usage(block, list),
  +    halt(1);
  +list_blocks(RiakcPid, Bucket, Key, UUIDHexPrefix) ->
       %% Blocks::[{UUID, BlockId}]
       {UUID, Blocks} =
           case [{GotUUID, M}
  
positive.code:     [print_manifest_summary(RiakcPid, Bucket, SiblingNo, M)
       || Key <- lists:sort(ManifestKeys),
          {SiblingNo, _UUID, M} <- get_manifest(RiakcPid, Bucket, Key)].
  
  print_gc_manifest_summary(_RiakcPid, _Key, _SiblingNo, header) ->
      io:format("~-32..=s: ~-8..=s ~-16..=s ~-32..=s ~-16..=s ~-32..=s~n",
  
negative.code:     io:format("Blocks in object [~s/~s]:~n", [Key, mochihex:to_hex(UUID)]),
      io:format("~-32..=s ~-8..=s: ~-10..=s ~-64..=s~n",
                ["UUID ", "Block ", "Size ", "Value(first 8 or 32 bytes) "]),
      [print_block_summary(RiakcPid, Bucket, Key, UUID, B) || B <- Blocks ].
  
  count_blocks(_, undefined) ->
      usage(block, count),
      halt(1);
  count_blocks(RiakcPid, Bucket) ->
      BlockBucketBin = riak_cs_utils:to_bucket_name(blocks, Bucket),
      count_riak_bucket(RiakcPid, BlockBucketBin, Bucket ++ ":blocks", 100*1000).
  
  print_block_summary(RiakcPid, Bucket, Key, UUID, Block) ->
      SeqNo = case Block of
  