2004-05-27

Conway See and Say, as a Perl one liner
perl -e '$x=1;for(;;){print"$x\n";$x=~s/((\d)\2*)/length($1).$2/eg;}' | head