#!/usr/bin/perl


binmode(STDOUT, ':utf8');

for ($e = 0x0000; $e < 0xFFFF; $e += 256) {
	for ($g = 0; $g < 256; $g += 64) {
		printf "%4x\t", $e + $g;
		for ($f = 0; $f < 64; ++$f) {
			print chr($e + $g + $f);
		}
		print "\n";
	} print "\n";
}
