Print supervisor tree (snippet to use in shell)

gistfile1.erl

f(C),
C = fun(Id, C2) -> {Id, [case S of
                             {CId, _, worker, _} -> CId;
                             {CId, _, supervisor, _} -> C2(CId, C2)
                         end || S <- supervisor:which_children(Id)]} end.
C(riak_core_sup,C).