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