Evaluated proc *r {a b} {expr round($a*$b)}