#!/usr/bin/tclsh8.5
set a 3
set b 4
set s [expr $a+$b]
puts $s

proc power {base p} {
    set result 1
    while {$p > 0} {
        set result [expr $result * $base]
        set p [expr $p - 1]
        puts $p
    }
    return $result
}

power 2 6