$s=1;print"$s\n";for(2..10){@n=split//,$s;my@r;$c=$n[0];$l=0;while(@n){$n=shift@n;if($n==$c){$l++}else{push@r,[$l,$c];$c=$n;$l=1;}}push@r,[$l,$c];$s =join"",map{"$_->[0]$_->[1]"}@r;print"$s\n";}