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