#!/bin/sh
# topdu -- du -h for top-level directoies

du . | \
sed -rn '/^[0123456789]+[[:space:]]+\.\/*[^\/]*$/p' | \
sort -n | \
awk 'BEGIN { FS = "\t" } {
    dsize = $1 "K";
    if($1 > lshift(1, 20)) {
        dsize = rshift($1, 20) "G"
    } else if($1 > lshift(1, 10)) {
        dsize = rshift($1, 10) "M"
    };
    print dsize "\t" $2
}'