mul n fractionWhat it does:
multiplies n with a fraction (given as a tuple)Defined in: /web/philip/tcl/ad-functional.tcl
Source code:
set num [fst $fraction]
set denom [snd $fraction]
set g [gcd $n $denom]
expr ($n/$g)*$num/($denom/$g)