do{print"$_\n"if/^(.)\1*(?!\1)(.)(\1|\2)*$/}for 1..10000