$a=<>;push@_," "x$a for 1..$a;
$_[$_]=~s/(.{$_})./$1X/,
$_[$_]=~s/.(.{$_})$/X$1/ for 0..$a;
s/ *$//,print"$_\n"for@_