numstr = "10000"
rootstr = "2"
message = "Find roots of a number"

while [numstr, rootstr] = results = input[message, [["Number", numstr], ["Root", rootstr]]]
{
   [num, root] = eval[results]
   val = num^(1/root)
   message = "$numstr^(1/$root) = $val"
   println[message]
}