Evaluated proc heads_x n { expr $n - ($n/6) }