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