An e-4917 emulator in Clojure