(use srfi-1)((rec(f l r)((^`i`r(f(delete i l)i))print(find(^x(>(gcd(max 2 r)x)1))l)))(iota 140 2)1)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page