z=#read
#(z)#(do((x 1(1+ x)))(#f)(z)(format #t"Case #~a: ~[WHITE~;BLACK~]
"x(modulo(z)2)))