Evaluated proc heads_y n { expr $n+((20*($n/10))-($n/9)) }