Here is an animated bug written in Tcl