BEGIN{FS=""}{for(k=1;k<=NF;k++)b[k,$k]++}END{for(i=1;i<k;i++)for(t=0;t<2;t++)x[t]=x[t]*2+(b[i,0]>b[i,1])-t;print-x[0]*x[1]}