Jurassic Park fractal in tcl/tk