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