(defn process-next [waiting-line]
(println waiting-line)
(if-let [name (first waiting-line)]
(do (println name "is next")
(recur (next waiting-line)))
(println "no waiting")))
(process-next '("Jeremy", "Amanda", "Markus"))
KGRlZm4gcHJvY2Vzcy1uZXh0IFt3YWl0aW5nLWxpbmVdCiAgKHByaW50bG4gd2FpdGluZy1saW5lKQogIChpZi1sZXQgW25hbWUgKGZpcnN0IHdhaXRpbmctbGluZSldCiAgICAoZG8gKHByaW50bG4gbmFtZSAiaXMgbmV4dCIpCiAgICAgICAgIChyZWN1ciAobmV4dCB3YWl0aW5nLWxpbmUpKSkKICAgIChwcmludGxuICJubyB3YWl0aW5nIikpKQoKCihwcm9jZXNzLW5leHQgJygiSmVyZW15IiwgIkFtYW5kYSIsICJNYXJrdXMiKSk=