Evaluated proc heads_y {y h} { expr $y - 12 - ($h/5) }