title: TCL Proc to add trailing zero's
body: <p>proc or lappend/ string map ?</p>
  <pre><code>set max 14
  set min 4
  </code></pre>
  <p>Add trailing zero's considering min i.e. 4th position as 1 followed by adding zero's till we reach (max-1)
  Example in above case would be {1 0 0 0 0 0 0 0 0 0}</p>
  <pre><code>puts $result
  {1 0 0 0 0 0 0 0 0 0}
  </code></pre>
  <p>Let's say my min changes since its dynamic as it is a procedural argument.</p>
  <pre><code>set min 6
  </code></pre>
  <p>so my output should be</p>
  <pre><code>puts $results
  {1 0 0 0 0 0 0 0}
  </code></pre>
  <p>Basically output always is calculated from 0 to 13 and whatever is my min we start from there and add 1 in its place and then add trailing zeros to (14-1)**</p>