$a=($i=<>)*3;$r=' 'x$b.' ##'x--$a." ",$t.=$t=' 'x$b.'# 'x$a."# ",$_=$b?"$r$t$_$t$r":"$r$t"x$i.$r,$b+=3 while$a-->$i;print
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page