#| BEGIN (Write your solution here) |#
(define (cons a b)
  (* (power 2 a) (power 3 b)))

(define (div-iter p d count)
  (if (= (remainder p d) 0)
      (div-iter (/ p d) d (+ count 1))
      count))

(define (car p)
  (div-iter p 2 0))

(define (cdr p)
  (div-iter p 3 0))

(define (power x n)
  (define (iter x n res)
    (if (= n 0)
        res
        (iter x (- n 1) (* res x))))
  (iter x n 1))
#| END |#