Lista todas as pastas em ordem decrescente de tamanho

Liste todas as pastas na pasta atual em ordem decrescente de tamanho de conteúdo com tamanhos de pasta legíveis por humanos.

du -k -d 1 | sort -nr | awk '
     BEGIN {
        split("KB,MB,GB,TB", Units, ",");
     }
     {
        u = 1;
        while ($1 >= 1024) {
           $1 = $1 / 1024;
           u += 1
        }
        $1 = sprintf("%.1f %s", $1, Units[u]);
        print $0;
     }
    '