[begin] pad dup 11 stdin read-line * + evaluate -rot dup 3 < dup -11 * d+ 13 * 8 + 5 / over 4 / dup 25 / dup 4 / - - + + + 7 mod 0 .r cr [again]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page