: q DUP 256 = 1+ * ; : i 1+ q ; : d 1- 0 MAX ; : s DUP * q ; : o DUP 0 .R CR ; 0 STDIN INCLUDE-FILE
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page