witash

F = fun() ->
    [{Call, length([P || P <- processes(), 
                         process_info(P, initial_call) == {initial_call, Call}])}
     || Call <- lists:usort([Call || P <- processes(), 
                                    {initial_call, Call} <- [process_info(P, initial_call)]])]
end, lists:sort(fun({_, A}, {_, B}) -> A >= B end, F()).

count_processes_with_current_call() ->
    AllPids = processes(),