perl -lE 's//:o/;say length$1 while s/(.*):(.*)/$2:$1$2/'