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