if $1x != x goto start
chdir /usr
du >/usr/ken/du/x
chdir /usr/ken/du
date >y
ed - y
1s/.*/&%&/
s/[^%]* 19//
s/%... /-/
s/ /-/
g/- /s//-0/
s/ .*//
g/Jan/s//01/
g/Feb/s//02/
g/Mar/s//03/
g/Apr/s//04/
g/May/s//05/
g/Jun/s//06/
g/Jul/s//07/
g/Aug/s//08/
g/Sep/s//09/
g/Oct/s//10/
g/Nov/s//11/
g/Dec/s//12/
s/.*/mv xx-xx-xx &/
w
e x
1,$s/	../	/
g/\//d
w xx-xx-xx
q
sh y
sh $0 ??-??-??
exit
: start
if $9x = x goto cat
shift
goto start
: cat
cat $1 $2 $3 $4 $5 $6 $7 $8 >x
ed - x
1,$s/.*	//
w
q
sort x -o x
uniq x y
: loop
if $1x = x goto done
ed - $1
1,$s/.*/&)'s'--$'&/
1,$s/.*	/&%/
1,$s/	%.*/'/
1,$s/.*	/g'^\\/
1,$s/)/	/
0a
1,$s/$/	--/
.
$a
w
q
.
w x
q
ed - y <x
shift
goto loop
: done
sort +8nr y -o x
pr x y ^ opr
