Evaluated proc heads_x {x w} { expr $x - 3 - ($w/20) }