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