gistfile1.lisp

(let [completed-map {
          :users {
                :email (get params :user)
                :adv1 (get params :adv1)
                :adv2 (get params :adv2)
                :adv3 (get params :adv3)
                :inf1 (get params :inf1)
                :inf2 (get params :inf2)
                :inf3 (get params :inf3)
                :trt1 (get params :trt1)
                :trt2 (get params :trt2)
                :trt3 (get params :trt3)
                  }
          :parent_id (get params :parent_id)}]