#!/afs/athena/contrib/perl/perl

while (<>) {
    chop;
    ($stat, $name) = split (/\s+/, $_, 2);

    $blood{$stat} = $name;
    push(@stats, $stat);
}

for ($i=0; $i<$#stats; $i++) {
    for ($j=$i+1; $j<=$#stats; $j++) {
	$rel{$stats[$i]*$stats[$j]}= "$blood{$stats[$i]} / $blood{$stats[$j]}";
    }
}

for $mul (sort {$a cmp $b} (keys %rel)) {
    printf "%-6d %s\n", $mul, $rel{$mul};
}