1 (define (make-generic-file division file)
2   (list division file))
3 (define (division-of-generic-file gf)
4   (car gf))
5 (define (file-of-generic-file gf)
6   (cadr gf))
7 (define (get-record employee file)
8   ((get 'get-record
9 	(division-of-generic-file file))
10    employee
11    (file-of-generic-file file)))
12 (define (get-salary employee)
13   ((get 'get-salary
14 	(division-of-generic-employee employee))
15    (employee-of-generic-employee employee)))