Evaluated proc abs n { expr abs($n) }