(use srfi-1)(do([L(iota 200 3)(set! L(delete y L))][x 1 y][y 2(find(^n(>(gcd y n)1))L)])((= x 159))(print x))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page