#!/usr/bin/perl -w
use strict;

###
# the perl quilt generator
# concept by ailie, perl created with the great help of jlp, jcwren,
# japh, neshura, mikfire, and all of #perlmonks
###

my @swatch;
my @quilt;

@swatch=(1 .. 168);
while (@swatch) {
my $x = rand(@swatch);
my $v = $swatch[$x];
push(@quilt, $v) && splice(@swatch, $x, 1);
}
print join(" ",  splice(@quilt, 0, 12)) ."\n" for (1..14);