He asked for the shortest solution, grinder, not the best.

In my first post in this thread I cautioned that it could be done in one pass.

-sauoq
"My two cents aren't worth a dime.";