class FieldList

pri next : FieldList;

pri Field : FieldInfo;

meth SetNext =^ ( val n: FieldList

next:= n;

)

end

meth GetNext =^ ( res n: FieldList

n:= next;

)

end

meth SetField =^ ( val f: FieldInfo

Field:= f;

)

end

meth GetField =^ ( res f: FieldInfo

f:= Field;

)

end

end