wish < tcl/Banded.tcl | demo BandedWG -or -ip