#!/usr/bin/perl -w

for( my $i = 2; $i < 16; $i ++ ) {
	for ( my $j = 0; $j < 16; $j++ ) {
		print chr ($i * 16 + $j);
		print " ";
	}
	print "\n";
}
