main=g>>f 1 f n=do s<-g;putStrLn$"Case #"++show n++z!!read[last s];f$n+1 z=": WHITE":": BLACK":z g=getLine