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