: a 196 1 do i 0 0. begin d+ 2dup 0. begin 10 1 m*/ 2over 10 fm/mod 0 * d+ 2swap 1 10 m*/ 2tuck d0= until d+ 2over 2over d= until 0 d.r cr loop ; a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page