anchor.diff:      io:format("----- ~B instance(s) -----~n", [length(Manifests)]),
       [ print_manifest(Manifest) || Manifest <- Manifests].
   
  -list_storage(RiakcPid) ->
  +list_storage(RiakcPid, ListFun) ->
       heading("~-40..=s ~-8..=s ~-16..=s ~-16..=s~n",
               ["Key ", "Sibl. ", "StartTime ", "EndTime "]),
  -    {ok, Keys} = riakc_pb_socket:list_keys(RiakcPid, "moss.storage"),
  -    [[io:format("~-40s ~8B ~-16s ~-16s~n",
  -                [Key, SiblingNo, Start, End])
  -      || {SiblingNo, {MD, V}} <- get_riak_object(RiakcPid, "moss.storage", Key),
  -         {Start, End, _Node, _Stats} <- [case MD of
  -                       tombstone -> tombstone;
  -                       _ -> stats_sample_from_binary(V)
  -                   end]]
  -     || Key <- lists:sort(Keys)].
  +    PrintFun = fun(Keys) ->
  +                       [[io:format("~-40s ~8B ~-16s ~-16s~n",
  +                                   [Key, SiblingNo, Start, End])
  +                         || {SiblingNo, {MD, V}} <- get_riak_object(RiakcPid, "moss.storage", Key),
  +                            {Start, End, _Node, _Stats} <- [case MD of
  +                                          tombstone -> tombstone;
  +                                          _ -> stats_sample_from_binary(V)
  +                                      end]]
  +                        || Key <- Keys]
  +               end,
  +    ListFun(RiakcPid, "moss.storage", PrintFun).
   
   show_storage(_RiakcPid, undefined, _)->
       usage(storage, show),
  
positive.code:             print_users(RiakcPid, "moss.users", {name, Name})
      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)->
      usage(access, show),
  
negative.code:     heading("All buckets:~n"),
      heading("[~-7s] ~-32..=s ~-32..=s~n",
              [type, "cs-bucket-name ", "riak-bucket-name "]),
      PrintFun = fun(RiakBuckets) ->
                         [io:format("[~-7s] ~-32s ~w~n", cs_bucket_info(RiakBucket, KnownNames))
                          || RiakBucket <- RiakBuckets ]
                 end,
      ListFun(RiakcPid, PrintFun).
  
  cs_bucket_info(RiakBucket, KnownNames) ->
      try riak_cs_utils:from_bucket_name(RiakBucket) of
  