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