RosettaCodeData/Task/Exponentiation-operator/Factor/exponentiation-operator-1.factor

: pow ( f n -- f' )
    dup 0 < [ abs pow recip ]
    [ [ 1 ] 2dip swap [ * ] curry times ] if ;