for(c<-"\n"*50;s=readLine)(s split' 'sortBy(_./:(0)((i,d)=> -i-s.count(d==)))):+c map print