class OpStackList

pri next : OpStackList;

pri data : Object;

meth GetNext =^ (res n: OpStackList ·

n:= Next;

)

end

meth SetNext =^ (val n: OpStackList ·

Next:= n;

)

end

meth Getdata =^ (res o: Object ·

o:= data;

)

end

meth Setdata =^ (val o: Object ·

data:= o;

)

end

end