(let ((a 1000))
  (define b (+ a 3))
  (write a)
  (display " ")
  (write b)
  (newline))