1 (make-rat n d)
2 
3 (define (cons x y)
4   (define (dispatch m)
5     (cond ((= m 0) x)
6 	  ((= m 1) y)
7 	  (else (error "Argument not 0 or 1 -- CONS" m)))))