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