#!/afs/athena/contrib/perl/p -n
split;
$garbage = pop(@_);
$tb = pop(@_);
$ta = pop(@_);

while(<>){
split;
$group = pop(@_);
$b = pop(@_);
$a= pop(@_);
$b /= $tb;
$a /= $ta;
$a *= 100;
$b *= 100;
printf("%s %.1f %.1f\n", $group, $b, $a);
}

