;; -*- Mode: Irken -*-
;; test lib/stack.scm
(include "lib/core.scm")
(include "lib/pair.scm")
(include "lib/stack.scm")
(let ((s0 (make-stack))
(s1 (make-stack))
(s2 (make-stack))
)
(s0.push 3)
(s0.push 4)
(s1.push #t)
(s1.push #f)
(s0.push 5)
(s0.push 6)
(print (s0.pop))
(printn (s0.get))
(s2.push #\A)
(printn (s0.length))
(s2.push #\B)
(printn (s2.pop))
(printn (s2.pop))
(printn (s1.get))
(s1.pop)
(s1.pop)
(s1.pop)
)