$d=sub{print@_};@l=split/\$/,'username$size$res$count';$_
=`ps -e | wc -l`;s/[^\d]//g;@t=split/\n/,`top -b $_`;
$z=sub{length$_[0]};splice(@t,0,6);my%p;@n=map({lc}grep($z->($_
),split/[\s\t]+/,shift@t));my@v;for(@t){@v=grep(&$z($_
),split/[\s\t]+/);@s{@n}=@v;for(@l[1,2]){$s{$_
}=~s/[^\d]//g;$p{$s{$l[0]}}{$_
}+=$s{$_
};}$p{$s{$l[0]}}{$l[3]}++;}&$d("\U$l[0]\t\U$l[1]\t\t\U$l[2]\n");for(keys%p){$c="\t";$c.="\t"if(&$z($_
)<8);&$d($_.$c.$p{$_}{$l[1]}."K\t\t".$p{$_}{$l[2]}."K\n");}