#!/usr/bin/perl

my(%gears) = ();

foreach $r (28,24,21,18,16,14,12)
{
    foreach $c (28,38,48)
    {
	next if $c==28 && $r==12;
	next if $c==48 && $r==28;

	foreach $t (3/4,1,4/3)
	{
#	    push @{ $gears{$c*$t/$r} }, "$c*$t/$r";
	    push @{ $gears{$c*$t/$r} }, "<td>$c</td><td>$r</td><td>$t</td>";
	}
    }
}

foreach $g (sort keys(%gears))
{
    foreach (@{$gears{$g}})
    {
	print "<tr>\n <td>$g</td>$_\n</tr>\n";
#	print "$g\t$_\n";
    }
}
