1 665c255d 2023-08-04 jrmu (defun divides? (a b)
 2 665c255d 2023-08-04 jrmu   (= (rem b a) 0))
 3 665c255d 2023-08-04 jrmu (defun my-cons (a b)
 4 665c255d 2023-08-04 jrmu   (* (expt 2 a) (expt 3 b)))
 5 665c255d 2023-08-04 jrmu (defun my-car (z)
 6 665c255d 2023-08-04 jrmu   (do ( (n 0 (1+ n))
 7 665c255d 2023-08-04 jrmu 	(aa z (/ aa 2)))
 8 665c255d 2023-08-04 jrmu       ((not (divides? 2 aa)) n)))
 9 665c255d 2023-08-04 jrmu (defun my-cdr (z)
10 665c255d 2023-08-04 jrmu   (do ( (n 0 (1+ n))
11 665c255d 2023-08-04 jrmu 	(aa z (/ aa 3)))
12 665c255d 2023-08-04 jrmu       ((not (divides? 3 aa)) n)))