z=#read #(z)#(do((x 1(1+ x)))(#f)(z)(format #t"Case #~a: ~[WHITE~;BLACK~] "x(modulo(z)2)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page