(defn selection-handler [tests]
  (dotimes [i (count tests)]
    (printf "(%s) %s: %s\n"
            (inc i)
            (first (nth tests i))
            (or (second (nth tests i))
                "--")))
  (loop [input (dec (get-number))]
    (if ((set (range (count tests))) input)
      (nth tests input)
      (recur (dec (get-number))))))