#!/usr/local/bin/perl

print "\xFE\xFF";

for ($code = 0x0; $code <= 0xFFFF; ++$code)
{
	$_ = sprintf ("%04X", $code);
	s/./\0$&/g;
	$_.="\0\t";
	$_.=pack("n",$code);
	$_.="\0\n";
	print;
}