In Tcl, the word while takes two arguments, a condition and an action.
في Tcl تأخذ الكلمة بينما وسيطتين وشرط وإجراء.