10 1 1e4{dup 60 exch(.....)cvs{2 copy le{0}if exch pop}forall 0 gt{=}if}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page