;; -*- Mode: Irken -*-

;; test lib/stack2.scm

(include "lib/core.scm")
(include "lib/pair.scm")
(include "lib/stack2.scm")

(let ((s0 (new-stack))
      (s1 (new-stack))
      (s2 (new-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::len))
  (s1::pop)
  (s1::pop)
  (s2::push #\B)
;;  (s1::pop)
  (printn (s2::pop))
  (printn (s2::pop))
  (printn (s1::get))
  )