(define-integer one 1)

(display one)
(newline)

(set-integer! one "one")

(display one)
(newline)