ORIGIN '~beta/basiclib/betaenv'
--- INCLUDE 'Stack'
--- PROGRAM: descriptor ---
(# 

(*Stack peldanyositasa, feltoltese, es kiuritese, a mar elore kesz Stack minta 
segitsegevel*)

   S: @Stack

   do 

      S.New;
      (for i: 12 repeat i -> S.Push for);
      (for i: 12 repeat S.pop -> PutInt; newline for)

#)