IMPLEMENTATION MODULE Ref;

  CLASS Ref(Element);
    VAR
      TheRef: Element;
      
    REDEFINE METHOD CREATE (InitialValue: Element);
      BEGIN
      TheRef := InitialValue;
      END CREATE;
      
    METHOD Get: Element;
      BEGIN
      RESULT := TheRef;
      END Get;
      
    METHOD Set(El: Element);
      BEGIN
      TheRef := El;
      END Set;
      
  END Ref;

END Ref;
