Evaluated proc heads_y n { expr $n - 40 }