Evaluated proc lzero {z n} {format "%0${z}d" $n}