(defn quiz [total correct end-time numbers-to-test]
  (if (before? (now) end-time)
    (recur (inc total)
             (if (quiz-question numbers-to-test) (inc correct) correct)
             end-time
             numbers-to-test)
    (assoc {} :correct correct :total total)))