(import scheme)
(import (chicken base))
(import (chicken flonum))
(import (chicken port))
(import (chicken string))

(flonum-print-precision 17)

(define (e x)
  (with-input-from-string (conc "#e" x) read))

(print (+ 0.1 0.2))
(print (inexact->exact (+ 0.1 0.2)))
(print (e (+ 0.1 0.2)))