#| BEGIN (Write your solution here) |#
; Code from the book
(define (numer x) (car x))
(define (denom x) (cdr x))

; My code
(define (raise num)
    (apply-generic 'raise num)
)
(define (update-scheme-number-package)
    (put 'raise '(scheme-number)
        (lambda (num) (make-rational num 1))
    )
)
(define (update-rational-package)
    (put 'raise '(rational)
        (lambda (num) (make-complex-from-real-imag (/ (numer num) (denom num)) 0))
    )
)
#| END |#