-- Code on page 378 for a Complex User from
-- Kenneth C. Louden, Programming Languages
-- Principles and Practice 2nd Edition
-- Copyright (C) Brooks-Cole/ITP, 2003

with ComplexNumbers;
use ComplexNumbers;

procedure ComplexUser is
  z,w: ComplexNumbers.Complex;

begin
  z := ComplexNumbers.makeComplex(1.0,-1.0);
  w := ComplexNumbers."+"(z,z);
  w := z + z;
end ComplexUser;