my $n = <>;

print ' ' x $n, "+\n";
print ' ' x ($n - $_), '*' x (1 + 2 * $_), "\n" for 1 .. $n - 1;