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