Исходное сообщение
"Языку Tcl исполнилось 30 лет " Отправлено Аноним, 16-Янв-19 13:08
Заглянул к ним на сайт, вот пример оттуда. proc power {base p} {     set result 1     while {$p > 0} {         set result [expr $result * $base]         set p [expr $p - 1]     }     return $result } пацаны -это какой-то баш, а баш уже есть, второй не нужен.