(define (my-display x)
  (if (and (number? x) (not (integer? x)))
    (begin
      (display x)
      (display " ")
      (write (number->string x)))
    (display x))
  (newline))

(define x 255)
(my-display x)
(define y 3.0)
(my-display y)

(my-display (integer? x))
(my-display (real? x))
(my-display (integer? y))
(my-display (real? y))

(my-display (+ x y))
(my-display (zero? x))
(my-display (= x 255.0))
(my-display (< x y))
(my-display (> x y))
(my-display (cos y))
(my-display (truncate -4.3))
(my-display (truncate 3.5))
(my-display (exact->inexact 255))
(my-display (exact->inexact 3.0))
(my-display (inexact->exact 3.0))
(my-display (inexact->exact 0.255e4))

(define z 2.0)

(my-display z)
(my-display (log z))

(my-display (floor -4.3))
(my-display (floor 3.5))
(my-display (ceiling -4.3))
(my-display (ceiling 3.5))
(my-display (round -4.3))
(my-display (round 3.5))
(my-display (round 7.0))
(my-display (number->string 0))
(my-display (number->string 10))
(my-display (sqrt 0.899999999994e-25))
(my-display (+ 255 0.0))
(my-display (* 2.0 (asin 1.0)))

(define (expt x y)
  (exp (* y (log x))))

(my-display (expt 5.0 (/ 1.0 3.0)))
