Tclers

set a "hello world"
puts $a
set c {25 30 48 50 30 45 94 83 72}
append c \ red
append c \ Apple
append c \ 58
append c \ ramu
puts $c

proc avg {numbers} {
   set sum 0
   foreach number $numbers {
      set sum  [expr $sum + $number]
   }
   set average [expr $sum/[llength $numbers]]
   return $average
}
puts [avg {70 80 50 60}]
puts [avg {70 80 50 }]