(in-package #:print)

(defun table (tbl)
  (maphash (lambda (k v)
             (format t "Key: ~a, Value: ~a" k v))
           tbl))