REBOL[]loop 3[n: ask""while[s: take sort/case take/part n 2][prin s]print""]