java -cp clojure-1.9.0.jar clojure.main /tmp/jurassic_park.clj

jurassic_park.clj

(ns jurassic-park
  "Post-movie fun with the boys"
  (:require [clojure.main :as m]))

(defn jurassic-read
  [request-prompt request-exit]
  (or ({:line-start request-prompt :stream-end request-exit}
       (m/skip-whitespace *in*))
      (let [input (.readLine *in*)]
        (cond
          (= "access security" input)
          (println "access: PERMISSION DENIED.")

          (= "access security grid" input)
          (println "access: PERMISSION DENIED.")

          (= "access main security grid" input)
          (let [msg "YOU DIDN'T SAY THE MAGIC WORD!"]
            (println "access: PERMISSION DENIED....and....")
            (dotimes [_ 10]
              (println msg)))

          (= "what is the magic word?" input)
          (println "prince"))
        request-prompt)))

(defn go [& args]
  (m/repl :prompt (fn [] (print "> "))
          :read jurassic-read))

(go)