#!/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";
   }