;; -*- Mode: Irken -*-

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

(let ((l '(1 2 3 4 5)))
  (printn (pop l))
  (printn (pop l))
  (printn (pop l))
  (printn (pop l))
  (printn (pop l))
  (printn (pop l)))