(defun assign_strata (g8ctrl g8regon g8urban g8minor)    
(case g8ctrl
      (1 (case g8regon (1 (setf h 1))
                       (2 (setf h 2))
                       (3 (setf h 3))
                       (4 (setf h 4))    
                       (8 (setf h 20))))
      (2 (case g8regon (1 (setf h 5))
                       (2 (setf h 6))
                       (3 (setf h 7))
                       (4 (setf h 8))    
                       (8 (setf h 20))))
      (3 (case g8regon (1 (setf h 9))
                       (2 (setf h 10))
                       (3 (setf h 11))
                       (4 (setf h 12))    
                       (8 (setf h 20))))
      (4 (case g8regon (1 (setf h 13))
                       (2 (setf h 14))
                       (3 (setf h 15))
                       (4 (setf h 16))    
                       (8 (setf h 20))))
)
)

(setf h_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)
)


 (length (select h_list (which (= 1 h_list))))
135
> (length (select h_list (which (= 2 h_list))))
209
> (length (select h_list (which (= 3 h_list))))
292
> (length (select h_list (which (= 4  h_list))))
165
> (length (select h_list (which (= 5  h_list))))
45
> (length (select h_list (which (= 6   h_list))))
31
> (length (select h_list (which (= 7   h_list))))
20
> (length (select h_list (which (= 8    h_list))))
9
> (length (select h_list (which (= 9    h_list))))
10
> (length (select h_list (which (= 10    h_list))))
18
> (length (select h_list (which (= 11    h_list))))
22
> (length (select h_list (which (= 12   h_list))))
17
 (length (select h_list (which (= 13 h_list))))
24
> (length (select h_list (which (= 14  h_list))))
8
> (length (select h_list (which (= 15  h_list))))
22
> (length (select h_list (which (= 16  h_list))))
6
> (length (select h_list (which (= 17  h_list))))
0
> (length (select h_list (which (= 18  h_list))))
0
0
> 0
> (length (select h_list (which (= 19  h_list))))
0
> length (select h_list (which (= 20 h_list))))