## mul

one of the documented procedures in this
installation of the ACS

Usage:
**mul** * n fraction *

What 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)

philg@mit.edu