#!/usr/bin/perl
use v5.14;
use warnings;

my $n = <>;
@ARGV = sort { $b <=> $a } split ' ', <>;

for my $i (1 .. $n) {
	for my $j (1 .. $n) {
		print $i == $j ? shift : pop, ' '
	}
	say '';
}