anchor.diff:  heading(Fmt) -> e(Fmt, []).
   heading(Fmt, Args) -> e(Fmt, Args).
   
  --spec list_buckets(pid()) -> any().
  -list_buckets(RiakcPid) ->
  -    list_buckets(RiakcPid, fun list_buckets/2).
  -
   list_buckets(RiakcPid, ListFun) ->
       %% TODO(shino): Can include all names of [a-z][0-9a-zA-Z-]{2..4} ?
       KnownNames = [{riak_cs_utils:md5(list_to_binary(B)), B}
  
positive.code: %% - key streaming instead of key listing, or use 2i streaming to keep result sorted
  
  -export([main/1]).
  -export([list_buckets/1, list_objects/2, print_object/3, list_blocks/4]).
  -export([rec_pp_fun/2]).
  
  -mode(compile).
  
negative.code:          {help, $H, "help", boolean, "Show this message"}
          ]).
  
  -define(sort_opt_spec,   [{sort, $s, "sort", {boolean, false}, "Sort the results"}]).
  -define(bucket_opt_spec, [{bucket, undefined, undefined, string, "bucket name"}]).
  -define(object_opt_spec, [{object, undefined, undefined, string, "object name"}]).
  
  