(use srfi-1)((^,l(dotimes'169((^d(remove!(^_(<(mod(inc! d)(~ l(+ . '1)))1))l))0))(map(^n,n," ")l))display(iota 5000 1 2))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page