#! /mit/watchmaker/@sys/perl
# munge cview output
$foo = "          ";
$flen = 11;
while (<>) {
	s/inuse/total/g;
	tryagain:
	if (/ ([0-9]*) *\/ *([0-9]*)/) {
		$total = $1 + $2;
		$replace = "<$1/$total>";
		if (length($2) >= length($total)) {
			$replace = " " . $replace;
		}
		$_ =~ s/ [0-9]* *\/ *[0-9]*/$replace/;
		goto tryagain;
	}
	print;
}