proc nthroot {n A} {
    expr {pow($A, 1.0/$n)}
}