text/x-tcl;application/x-tcl
*.tcl;*.tk
#
[$@%][$]?[a-zA-Z_][a-zA-Z0-9_]*
string
subst
regexp
regsub
scan
format
binary
list
split
join
concat
llength
lrange
lsearch
lreplace
lindex
lsort
linsert
lrepeat
dict
if
else
elseif
then
for
foreach
switch
case
while
continue
return
break
catch
error
eval
uplevel
after
update
vwait
proc
rename
set
lset
lassign
unset
namespace
variable
upvar
global
trace
array
incr
append
lappend
expr
file
open
close
socket
fconfigure
puts
gets
read
seek
tell
eof
flush
fblocked
fcopy
fileevent
source
load
unload
package
info
interp
history
bgerror
unknown
memory
cd
pwd
clock
time
exec
glob
pid
exit