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