RosettaCodeData/Task/Exponentiation-operator/Forth/exponentiation-operator-1.fth

: ** ( n m -- n^m )
  1 swap  0 ?do over * loop  nip ;