RosettaCodeData/Task/Exponentiation-order/Tcl/exponentiation-order.tcl

foreach expression {5**3**2 (5**3)**2 5**(3**2)} {
    puts "${expression}:\t[expr $expression]"
}