zaa

lists:usort(
    fun({_, M1} , {_, M2}) -> M1 > M2 end,
    [{ets:info(Tab, name), ets:info(Tab, memory)*erlang:system_info(wordsize)} || Tab <- lists:sort(ets:all())]
).