Graphical Sieve of Eratosthenes demo with Tcl/Tk