Evaluated proc heads_y n { expr $n+(50-($n/9)) }