wish < tcl/TCLBowedBar.tcl | syntmono BowedBar -r -ip