rebol[]loop 32[if(copy a: input)= sort a[print a]]