2 1 762{0 2 1 3 index{2 index exch 2 copy dup mul mod 0 eq{0 exit}if mod 0 eq{1 add}if}for 7 eq{=}if}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page