I'll school you on the art and how its texture mapped
Get your act together, my style is mega
Educate the heads of eight lonely beggars
Only shred of evidence is the virtual file
Stored within the cerebellum hit you Berkowitze Style

##</code><code>##

my $depth = 16; # generate 16 Gray codes, 4 bits wide each   
my @gray_codes = ( '0', '1' );
while(scalar(@gray_codes)<$depth)
{
      my @forward_half=map{'0'.$_} @gray_codes;  
      my @reverse_half=map{'1'.$_} reverse @gray_codes);
      @gray_codes=(@forward_half,@reverse_half);
}