class COMPLEX
  creation
    make
  feature
    real_part, imag_part: REAL
  feature
    make(r, i: REAL) is
      do
        real_part := r
        imag_part := i
      end -- make
end -- class COMPLEX