home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / ipl / packs / idol / main.iol < prev    next >
Text File  |  2000-07-29  |  289b  |  10 lines
  1. procedure main()
  2.   mydeque := Deque()
  3.   mydeque$push("hello")
  4.   mydeque$push("world")
  5.   write("My deque is size ",mydeque$size())
  6.   every write("give me a ",mydeque$foreach())
  7.   write("A random element is ",mydeque$random())
  8.   write("getting ",mydeque$get()," popping ",mydeque$pop())
  9. end
  10.