(use srfi-1)((rec(f l\)((^`i`\(f(delete i l)i))print(find(^x(>(gcd(max 2\)x)1))l)))(iota 140 2)1)