print "Jumping the shark: adding some per(i)lousness\n";
print map { "*" x $_, "\n" } reverse 1 .. $n;