perl -E'$_=1;while(++$t<19){say;my@a;push@a,length$1,$2 while/((\d)\2*)/g;$_=join"",@a}'