(import (chibi show))

(define-record-type Point
  (make-point x y)
  point?
  (x point-x)
  (y point-y))

(define (point-described p)
  (displayed (each "Point(" (point-x p) "," (point-y p) ")")))

;; (let ((p (make-point 0 0)))
;;   (show #f (point-described p)))