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