REBOL[]repeat n 10000[if 2 = length? unique form n[print n]]