ORIGIN 'Stack' (*Melyik file-ban talalhato az interface*)
--- private: descriptor ---      (*Objektum dekalracio*)
   (# A: [100] @Integer;

      Top: @integer

   #)


--- PushBody: dopart ---      (*A PushBody : dopart helyere szovegszeruen
                        masolodhatnak a kovekezo utasitasok*)
do private.top+1 -> private.top; e -> private.A[private.top]


--- PopBody: dopart ---
do private.A[private.top] -> e; private.top-1 -> private.top


--- isEmptyBody: dopart ---
do (0 = private.Top) -> result


--- newBody: dopart ---
do 0->private.top