input""n:for i=1to n input"Case #"k,k:?i,mid$(": WHITE: BLACK",and(k,1)*8,8)next