Rational Arithmetic/Tcl