rebol[]for i 1 10000 1[if 2 = length? unique form i[print i]]