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