(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)