>perl -MMath::Complex -le "print exp(1) ** (pi * i);"
-1+1.22460635382238e-16i