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"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page