(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"))