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