$a=<>/2;print' 'x$a,"+\n"for 1..$a;print'+'x($a*2),$/;print' 'x$a,"+\n"for 1..$a