(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 5))))
      (2 (case g8regon (1 (setf h 6))
                       (2 (setf h 7))
                       (3 (setf h 8))
                       (4 (setf h 9))    
                       (8 (setf h 10))))
      (3 (case g8regon (1 (setf h 11))
                       (2 (setf h 12))
                       (3 (setf h 13))
                       (4 (setf h 14))    
                       (8 (setf h 15))))
      (4 (case g8regon (1 (setf h 16))
                       (2 (setf h 17))
                       (3 (setf h 18))
                       (4 (setf h 19))    
                       (8 (setf h 20))))
)
(case g8ctrl
      (1 (case g8urban (1 (case g8minor (0 (setf l 1))
                                        (1 (setf l 1))
                                        (2 (setf l 1)) 
                                        (3 (setf l 1))
                                        (4 (setf l 2))
                                        (5 (setf l 2))
                                        (6 (setf l 2))
                                        (7 (setf l 2))
                                        (8 (setf l 3))))
                       (2 (case g8minor (0 (setf l 1))
                                        (1 (setf l 1))
                                        (2 (setf l 1)) 
                                        (3 (setf l 1))
                                        (4 (setf l 2))
                                        (5 (setf l 2))
                                        (6 (setf l 2))
                                        (7 (setf l 2))
                                        (8 (setf l 3))))            
                       (3 (case g8minor (0 (setf l 1))
                                        (1 (setf l 1))
                                        (2 (setf l 1)) 
                                        (3 (setf l 1))
                                        (4 (setf l 2))
                                        (5 (setf l 2))
                                        (6 (setf l 2))
                                        (7 (setf l 2))
                                        (8 (setf l 3))))))    
      (2 (case g8urban (1 (setf l 1))
                       (2 (setf l 2)) 
                       (3 (setf l 2))))
      (3 (setf l 1))
      (4 (setf l 1))
)


)