#!/usr/bin/perl

@init = (
'7E414949490000000000000000000000',
'7E414141410000000000000000000000',
'7E010909090000000000000000000000',
'7E010101010000000000000000000000',
'414B5D69410000000000000000000000',
'43454951610000000000000000000000',
'3E087F08080000000000000000000000',
'08087F08080000000000000000000000',
'25555555250000000000000000000000',
'39454545390000000000000000000000',
'494949413F0000000000000000000000',
'414141413F0000000000000000000000',
'090909017F0000000000000000000000',
'010101017F0000000000000000000000',
'41417F41410000000000000000000000',
'7E0101017F0000000000000000000000',
'7E4141417F0000000000000000000000',
'23150911210000000000000000000000',
'7F010F01010000000000000000000000',
'01097F01010000000000000000000000',
'02040810200000000000000000000000'
);

@medi = (
'0000000000007F400000000000000000',
'0000000000003F402000000000000000',
'00000000000000407F00000000000000',
'00000000000020403F00000000000000',
'0000000000007F010000000000000000',
'0000000000007E010200000000000000',
'00000000000000017F00000000000000',
'00000000000002017E00000000000000'
);

@fina = (
'000000000000000000007E4149494900',
'000000000000000000007E4141414100',
'000000000000000000007E0109090900',
'000000000000000000007E0101010100',
'00000000000000000000414B5D694100',
'00000000000000000000434549516100',
'000000000000000000003E087F080800',
'0000000000000000000008087F080800',
'00000000000000000000255555552500',
'00000000000000000000394545453900',
'00000000000000000000494949413F00',
'00000000000000000000414141413F00',
'00000000000000000000090909017F00',
'00000000000000000000010101017F00',
'0000000000000000000041417F414100',
'000000000000000000007E0101017F00',
'000000000000000000007E4141417F00',
'00000000000000000000231509112100',
'00000000000000000000404078407F00',
'0000000000000000000001097F010100',
'00000000000000000000020408102000',
'00000000000000000000000000000000'
);

for ($i = 0; $i < 21 ; $i++) {
	for ($m = 0; $m < 8 ; $m++) {
		for ($f = 0; $f < 22 ; $f++) {
			$c = ($i * 176) + ($m * 22) + $f + 0xF0000;
			printf ("%06X:%s%s%s\n", $c, substr ($init[$i], 0, 10), substr ($medi[$m], 10, 10), substr ($fina[$f], 20, 12)) or die ("Cannot print to stdout.\n");
		}
	}
}