(defun conj
  (((match-complex real r img i))
   (new r (* -1 i))))