IMPLEMENTATION MODULE Couple;

  CLASS Couple(Element);
    INHERITS Comparable;
    
    VAR
      TheOne, TheTwo: Element;
    
    REDEFINE METHOD CREATE (One, Two: Element);
      BEGIN
      Set(One, Two);
      END CREATE;
      
    METHOD Set (One, Two: Element);
      BEGIN
      TheOne := One;
      TheTwo := Two;
      END Set;
      
    METHOD One: Element;
      BEGIN
      RESULT := TheOne;
      END One;
      
    METHOD Two: Element;
      BEGIN
      RESULT := TheTwo;
      END Two;
      
  END Couple;    

END Couple;
