rebol[]repeat n 10000[if 2 = length? unique mold n[print n]]