#| BEGIN (Введите свое решение) |#
(define (cons a b)
  (* (expt 2 a) (expt 3 b))
)

(define (car c)
  (division-count c 2))

(define (cdr c)
  (division-count c 3))

(define (division-count a divisor)
  (define (iter count div)
    (if (not (= (remainder a div) 0))
        count
        (iter (+ count 1) (* div divisor))))
  (iter 0 divisor))
#| END |#