binsize.erl

(fun() ->
    SizePids = lists:flatmap(fun(Pid) ->
        Size = case process_info(Pid, binary) of
            {binary, BinInfos} ->
                lists:sum([S || {_, S, _} <- BinInfos]);
            undefined ->
                0
        end,
        if Size == 0 -> []; true ->
            [{Size, Pid}]
        end
    end, processes()),
    lists:reverse(lists:sort(SizePids))
end)().