             text-headers     (concat sample-base-headers
                                      (get-ext-headers samples :extra_plot_info "pl_")
                                      (get-ext-headers samples :extra_sample_info "smpl_")
-                                     (map :question survey-questions))
+                                     (map (fn [[_ val]]
+                                            (:question val "not-found"))
+                                          survey-questions))
             headers-out      (->> text-headers
                                   (map #(-> % name csv-quotes))
                                   (str/join ",")

                                                                     (update :analysis_duration #(when % (str % " secs"))))
                                                                 (prefix-keys "pl_" extra-plot-info)
                                                                 (prefix-keys "smpl_" extra-sample-info)
                                                                 (extract-answers saved-answers))
                                                          text-headers
                                                          ""))))
                                  samples)]

  "Returns a list of every question answer combo like
   (question1:answer1 question1:answer2 question2:answer1)"
  [survey-questions]
  (mapcat (fn [[_ {:keys [question answers]}]]
            (map (fn [[_ {:keys [answer]}]]
                   (str question ":" answer))
                 answers))
          survey-questions))

(defn- count-answer [sample-size question-answers]
  (u/mapm (fn [[question answers]]
