Summa i tcl

I tcl (en annan länk) kan man göra så här till exempel:
 

% tcl   starta tclinterpretatorn
tcl>for {set k 1} {$k <= 1000000} {incr k} {set s [expr $s+1.0/$k]}
tcl>puts $s
14.3927267229

$ är en evalueringsoperator, så att $variabel ger variabelns värde. expr evaluerar ett numeriskt uttryck (expr 1+2 blir 3 t.ex.) och ett tcl-uttryck inom [ ] evalueras och substitueras in på samma ställe ("command substitution").