(do*((a()`(,@a,b))(b 2(do'(j 2)((if(find(incf j)a)/(>(gcd j b)1))j))))((= b 159)(format t"1~{
~A~}"a)))