Evaluated proc heads_x n { expr $n - 0 }