Execute Tcl Online

puts "Hello World!"
puts "Hello World!"
if 0 {
    this is a multiline \
    comment. no content of this will\
    be printed
}
puts "Hello\nconsole"
set myvariable {arun mohit tushar ram munir}
puts "\n"
puts [lindex $myvariable 3]
append myvariable " " "manoj"
lappend myvariable "mrityunjay"
puts "\n"
puts [lindex $myvariable 6]
puts "\n"
puts [lindex $myvariable 5]
puts "\n"
puts [llength $myvariable]
puts "\n"
set mymarks(english) 90
set mymarks(maths) 98
set mymarks(physics) 90
set mymarks(chemistry) 78
set mymarks(biology) 70
puts [array names mymarks]
puts "\n"
puts "\n"
puts "\n"

puts $mymarks(maths)
puts "\n"
set language(0) TCL
set language(1) C
set language(2) perl
set language(3) verilog
set language(4) python
puts $language(4)
puts "\n"
puts [array size language]
puts "\n"
for {set index 0} {$index < [array size language]} {incr index} {
    puts "language($index): $language($index)"
}
foreach indexs [array names mymarks] {
    puts "mymarks($indexs):$mymarks($indexs)"
}
set tobby "helarious"
puts [string length $tobby]
#set datain [gets $argv1]
puts [ lindex $argv 0]
if {[string match "yes" $argv]} {
    puts "its yes"
} else {
    puts "its no"
}