   [environment questions responses]
   (->> responses
        (questions-responses-adapter environment questions)
-       vals 
+       vals
        (map first)
        (apply merge)))
 

     ids-to-adapt)))

(defn- questions-responses-adapter [environment questions responses]
  (if (first (get environment "rqg"))
    (questions-responses-with-rqg-in-one-column questions responses)
    responses))


(defn questions
  "Get the list of questions from a form"
  [environment form]
  (if (get environment "rqg")
    (questions-with-rqg-in-one-column form)
    (questions-current-implementation form)))

