c:=s:=0
f:=method((.."")alignRight(3))
File standardInput readLines slice(1)map(f)do(map(i,_,for(j,0,size-i-2,at(j)<at(j+1)or swapIndices(j,j-s+s=s+1)
writeln("compare =",(c=c+1)f,"   swap =",s f,"   data:",join))))