main=interact$(>>=(' '&)).lines
a&(b:c)=[z|a/=b,(x,y)<-zip"xrgbcw ""0124679",x==b,z<-"\27[4"++y:"m"]++"  "++b&c
_&_="\27[49m\n"