Select Code to Download

perl -le "while(1){$a=$a?$a:ord'a';print chr$a;$a=++$a%ord'{';sleep 1}
+"

perl -le "$_='x';while(1){s/aa/a/;print$_++;sleep 1}"