$set ilusing"System" $set ilusing"System.Collections" 01 alphabetStack type "Stack". 01 item object reference. set alphabetStack to new type "Stack"() invoke alphabetStack::"Push"("A item") invoke alphabetStack::"Push"("B item") invoke alphabetStack::"Push"("C item") display "The initial stack is: " perform varying item through alphabetStack display " " item end-perform display "". display "Pop item: " alphabetStack::"Pop"() display "". display "Afterwards is: " perform varying item through alphabetStack display " " item end-perform