perl -le'$_=1; s/((.)\2*)/length($1).$2/ge while $a++ < 30; print length $_'