gistfile1.txt

(map (fn [year] (map (fn [age] (vec [gss-code age year (reduce + ($ :popn (-> (query-dataset foo {:year {:$eq year}})
                                                                                (query-dataset {:age age})
                                                                                )))])) age-range)) year-range)
                                                                                
(def age-range (range 0 91))
(def year-range (range 2001 2041))
(def gss-code "E06000023")