#!/usr/bin/perl
# ¦L¥X f-f ­¼ªkªí.
# http://www.cyut.edu.tw/~ckhung/b/pl/

print "   | ";
for ($j = 2; $j < 0x10; ++$j) {
    printf "  %x", $j;
}
print "\n";

print "---+--------------------------------------------\n";

for ($i = 2; $i < 0x10; ++$i) {
    printf " %x | ", $i;
    for ($j = 2; $j < 0x10; ++$j) {
	printf " %2x", $i*$j;
    }
    print "\n";
}