0/'WHITE'.
1/'BLACK'.
\I:-readln([_,A]),B is A/\1,B/C,format("Case #~d: ~a
",[I,C]),\(I+1).
m:-skip(10),\1.