(assert (= (->string 1234) "1234"))
(assert (= (->string '(1 2)) "(1 2)"))
(assert (= (->string #t) "#T"))

(assert (= 1234 (string->number "1234")))
(assert (= -1234 (string->number "-1234")))
(assert (= 0x1234 (string->number "1234" 16)))
(assert (= 0o1234 (string->number "1234" 8)))
(assert (= (/ 1 2) (string->number "0.5")))
(assert (= (/ -1 2) (string->number "-0.5")))
(assert (= (/ -1 2) (string->number "-5e-1")))