perl -le'@j=(A..K);print$#j--while$#j'