$_='%67s'%$/*c=?a '\x12\x0f\x07\x08\x0e\x04 \x01\x09'.bytes{|i|c+=1.upto(i*i){|j|$_[j%i*67-~~/ /]=c}} print
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page