
print "\nHex\tSqr\tTri\tSqr/Hex\tTri/Hex";
print "\n---\t---\t---\n";

$HexT = $SqT = $TriT = 1; 

for ($i = 0; $i < 1000; $i++) {
    print "$HexT\t$SqT\t$TriT\t".$SqT/$HexT."\t".$TriT/$HexT."\n";
    $HexT += 6;
    $SqT += 4;
    $TriT += 3;
}


