perl -E'$_=1;say,s/(.)\1*/$&=~y...c.$1/ge while$i++<19'