section_heading: Tcl (Tool command language)
paragraph_text: <syntaxhighlight lang="tcl"> set brojac 5 set faktorijela 1 while {$brojac > 0} { set faktorijela [expr $faktorijela * $brojac] incr brojac -1 } puts $faktorijela </syntaxhighlight>