print+(0..9,A..Y)[1..ord],$/for'\x01\x01\x02\x03\x05\x08\x0d\x15"'=~/./g
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page