(defn process-next [waiting-line]
(println waiting-line)
(if-let [name (first waiting-line)]
(->> (println name "is next")
(process-next waiting-line))
(println "no waiting")))
(process-next '("Jeremy", "Amanda", "Markus", "Markus"))
KGRlZm4gcHJvY2Vzcy1uZXh0IFt3YWl0aW5nLWxpbmVdCiAgKHByaW50bG4gd2FpdGluZy1saW5lKQogIChpZi1sZXQgW25hbWUgKGZpcnN0IHdhaXRpbmctbGluZSldCiAgICAoLT4+IChwcmludGxuIG5hbWUgImlzIG5leHQiKQogICAgICAgICAocHJvY2Vzcy1uZXh0IHdhaXRpbmctbGluZSkpCiAgICAocHJpbnRsbiAibm8gd2FpdGluZyIpKSkKCihwcm9jZXNzLW5leHQgJygiSmVyZW15IiwgIkFtYW5kYSIsICJNYXJrdXMiLCAiTWFya3VzIikp