title: TCL:: How to print numbers from 10 to 1 using while loop in TCL (How to decrement the variiable value)
body: <p>TCL Script:</p>
  
  <pre><code>set a 10
  while {$a &lt; 1} {
      puts $a
      incr a
  }
  </code></pre>
  
  <p>Expected output:</p>
  
  <pre><code>10
  9
  8
  7
  6
  5
  4
  3
  2
  1
  </code></pre>
  
  <p>I am trying to print numbers from 10 to 1. But its not working (It prints nothing). </p>
  
  <p>Is there a way to "decrement" the variable value (decr a)? </p>
  
  <p>Thanks,</p>
  
  <p>Kumar</p>