small cleanup of Poiseuille.tcl script