Old Magician by notogawa

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