##Perl Quilt
#14x12 Patch
# Randomizer
use  strict;
my(@s,@q,$x)
;@s=(1..168)
;for(1..168)
{$x=int rand
@s; push(@q,
splice@s,$x,
1);} print "
".join "\t",
splice @q,0,
12for(1..14)