REBOL[]while[s: input][print unique/case s]