<>=~/ /;$l=$r=join$"x($`*2-3),($')x$`;print($l|$"x$_.$r.$/),$l=~s/.//for 0..$`-1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page