REBOL[]while[a: input][a: parse a"="print pick[same different](sort a/1)= sort a/3]