(setf h_list(repeat 0 1035))
(setf l_list(repeat 0 1035))
(dotimes (i 1035)
(assign_strata (nth i g8ctrl) (nth i g8regon) (nth i g8urban) (nth i g8minor))

(setf (nth i h_list) h)
(setf (nth i l_list) l)
)