#!/usr/bin/perl
###
# altblue 1999
####
# makes 'pretty' some number of bytes
##########
foreach(@ARGV) {
	print "$_  : ",make_it_pretty($_),"\n";
}

sub make_it_pretty {
        my @what = @_;
        foreach(@what) {
                if($_ >= 1024*1024) {
                        $_ /= 1024*1024;
                        $_ =~ s/(\...).*$/$1/;
                        $_ .= " Mb";
                } elsif($_ >= 1024) {
                        $_ /= 1024;
                        $_ =~ s/(\...).*$/$1/;
                        $_ .= " kb";
                } else {
                        $_ .= " b";
                }
        }
        return @what;
}