#!/usr/bin/perl -w
$n=$ARGV[0]; @s = ("x" , " " );
for ($i=1; $i<=$n; $i=$i+1){
$arm1= $s[1] x ($i-1). $s[0]; $arm2= $s[1] x ($n2+1-$i2). $s[0]; print "$arm1$arm2" ."\n"; }
print $s[1] x $n.$s[0]."\n";
for ($i=1; $i<=$n; $i=$i+1){
$arm1= $s[1] x ($n-$i). $s[0];
$arm2= $s[1] x ($i*2-1). $s[0];
print "$arm1$arm2" ."\n";
}