Little work of art:

a=1;for i in {1..34};do printf %$[40-${#a}]s”$(eval $(echo $a*$a|bc|sed ’s/$/0/;s/\([0-9]\)/tput setab \1; echo -n \\ ;/g’))”\\n;a=1$a;done

Ascii plot:

clear;for x in {0..150}; do y=`echo “12+6*s($x/6)”|bc -l|cut -d. -f 1`;echo -en \\e[$y\;"$(($x/2))"HX; sleep .1;done

bubble-sort implementation:

s=`seq 9|shuf`;while :;do for((i=0;i<15;i+=2));do echo $s;a=${s:i:1};b=${s:i+2:1};[ $a -gt $b ]&&s=${s:0:i}$b\ $a${s:i+3};sleep .2;done;done

s=`shuf -i1-9`;while i=;do for((;i<15;i+=2));do echo $s;a=${s:i:1};b=${s:i+2:1};[ $a \> $b ]&&s=${s:0:i}$b\ $a${s:i+3};sleep .2;done;done

http://twitter.com/natfriedman