(setq small 37)
(setq big 99)
(defun calc (a b)
(if (eq a 1)
(cons b nil)
(cons (/ (- b (mod b a ) )
a)
(calc (mod b a ) a ))))
(defun recalc (lst)
(if (eq (cdr lst ) nil)
(/ 1.0 (car lst))
(/ 1.0
(+ (car lst)
(recalc (cdr lst))))))
(/ (* small 1.0) big)
(recalc (calc small big))
(setq small 13)
(setq big 30)
(/ (* small 1.0) big)
(recalc (calc small big))
(setq small 7)
(setq big 9)
(/ (* small 1.0) big)
(recalc (calc small big))
(setq small 17)
(setq big 45)
(/ (* small 1.0) big)
(recalc (calc small big))