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