mul n fraction
multiplies n with a fraction (given as a tuple)
Source code:
set num [fst $fraction] set denom [snd $fraction] set g [gcd $n $denom] expr ($n/$g)*$num/($denom/$g)