Calculating A065027

#!/usr/bin/env tclsh

# For variable names longer as 3 charachters I use braces.
# For example I use: $i, $fd, $arg and ${type}


proc doCalculate {start {end ""}} {
    if {$end == ""} {
        set end ${start}
    }
    set factorial 1
    set n         1
    set power     [set base ${start}]
    giveMsg "Start loop."
    while {True} {
        if {${factorial} > ${power}} {
            giveMsg "${base} -> $n"
            incr base
            if {${base} > $end} {
                break
            }
            set power [expr {${base} ** $n}]
        }
        incr n
        set  power     [expr {${power}     * ${base}}]
        set  factorial [expr {${factorial} * $n}]
    }
}

proc giveMsg {msg} {
    puts "[clock format [clock seconds] -format %H:%M:%S]: $msg"
}


switch ${argc} {
    1 -
    2 {
        doCalculate {*}${argv}
    }
    default {
        puts "Usage: [file tail ${::argv0}] start ?end?"
        exit 1
    }
}