;; -*- Mode: Irken -*-

(include "lib/basis.scm")
(include "lib/map.scm")
(include "lib/codecs/hex.scm")

(include "aes.scm")

(let ((aes (AES "YELLOW SUBMARINE"))
      (pt0 "testing testing ")
      (ct0 (aes.encrypt pt0))
      (pt1 (aes.decrypt ct0)))
  (printf "ct0 " (string ct0) "\n")
  (printf "pt1 " (string pt1) "\n")
  )