$_=<>;
$L=length;
sub w{substr$_,$_[0],$i,' 'x$i}
for$i((0)x3,1..-3+.5*$L){
w 2;w-3-$i;
$j++&&s/^.|.$/ /g;
push@a,$_}
print@a;
$L%2||pop@a;
print reverse@a