#!/usr/bin/env perl

print "\n";
print "  : x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 xA xB xC xD xE xF\n";
print "--:-------------------------------------------------\n";
for ( my $i = 0; $i < 16; ++$i ) {
  print sprintf("%Xx:", $i);
  for ( my $j = 0; $j < 16; ++$j ) {
    my $n =  16*$i + $j;
    my $c = chr($n);
    $c = '.' if ( ($n >= 7 && $n <= 10) || $n == 13 );
    print "  ", $c;
  }
  print "\n";
}