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