RosettaCodeData/Task/Arithmetic-Complex/PARI-GP/arithmetic-complex.parigp

add(a,b)=a+b;
mult(a,b)=a*b;
neg(a)=-a;
inv(a)=1/a;