: z ( a complex number stored as a pair of numbers )
x .5 -
y .5 -
;

: z1/ over dup * over dup * + rot over / -rot / ;
: zmodule dup * swap dup * + sqrt ;
: zarg swap atan2 ;
: e^ over exp over cos * -rot sin swap exp * ;
: zln 2dup zmodule log -rot zarg ;
: z^ push push zln pop pop z* e^ ;

: a 18 1.4 ;
: b 3 -4 ;
: c -2 2.9 ;
: d 1 -1.7 ;

a z z* b z+
c z z* d z+ c z^
z1/ e^
z* zln
abs swap abs 3 /
2dup zmodule 3.5 /
swap

( greetings to As’s Software Inc. )