perl -E'for(0..19){say$_=$t//1;$t="";$t.=(length$1).$2 while/((.)\2*)/g}'