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