تي سي إل

proc ! x {expr {$x<2? 1: $x*[! [incr x -1]]}}

set nombres {10 9 8 7 6 5 4 3 2 1}
set somme 0
foreach i $nombres { 
   set somme [expr {$somme + $i}]
}

set somme [expr [join $nombres +]]

set sequence "ACGTATTACGGTCCATGAACGAATTGGGATATCGACCATGATGGAATTCTG"
puts [string map {GA R TC Y GT K AC M GC S AT W} $sequence]

package require http
puts [http::data [http::geturl http://mini.net/tcl/540]]

package require android
set android [android new]
set time [clock format [clock seconds] -format "%I %M %p on %A, %B %e %Y."]
android speak $time

after		 exec		list		read		tm
append		 exit		llength		refchan		trace
apply		 expr		lmap		regexp		trap
array		 fblocked	load		registry *	try
auto_execok	 fconfigure	lrange		regsub		unknown
auto_import	 fcopy		lrepeat		rename		unload
auto_load	 file		lreplace	return		unset
auto_mkindex	 fileevent	lreverse	scan		update
auto_mkindex_old filename	lsearch		seek		uplevel
auto_qualify	 finally	lset		set		upvar
auto_reset	 flush		lsort		socket		variable
bgerror		 for		mathfunc	source		vwait
binary		 foreach	mathop		split		while
break		 format		memory		string		yield
catch		 gets		msgcat		subst		yieldto
cd		 glob		namespace	switch		zlib
chan		 global		open		tailcall
clock		 history	package		tcl_endOfWord
close		 http		parray		tcl_findLibrary
concat		 if		pid		tcl_startOfNextWord
continue	 incr		pkg::create	tcl_startOfPreviousWord
coroutine	 info		pkg_mkIndex	tcl_wordBreakAfter
dde *		 interp		platform	tcl_wordBreakBefore
dict		 join		platform::shell	tcltest
encoding	 lappend	proc		tclvars
eof		 lassign	puts		tell
error		 lindex		pwd		throw
eval		 linsert	re_syntax	time