rebol[]while[a: input][print unique/case a]