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