for(1..1e4){++$n;/./;s/$&//g;print"$n
"if/^(.)\1*$/}