Evaluated proc heads_y n { expr $n - 1 }