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