(do((x 2)(z 1(* z x)))((>(incf x)2d3))(format t"~[~;~A,~A
~]"(gcd(*(+ x 2)x)z)x(+ x 2)))