In Tcl, the word while takes two arguments, a condition and an action.
در TCL، کلمه while، دو آرگومان می‌گیرد، یک شرط و یک دستور.