2.1.1.7.clj

(def one-half (make-rat 1 2))  
  
(print-rat one-half)  
1/2
  
(def one-third (make-rat 1 3))  
(print-rat (add-rat one-half one-third))  
5/6  
  
(print-rat (mul-rat one-half one-third))  
1/6  
  
(print-rat (add-rat one-third one-third))  
6/9