Evaluated proc heads_y {y h} { expr $y - 0 }