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