Old Magician by koyama41

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