(load "lib/syntax.rls")

(define d (f))
(define-values (a b c) (values 4 d 6))
(define (f) 9)

(define x (make-parameter #f))

(parameterize ([x 7])
  (display (x))
  (posix-write 1 "\n"))

(letrec iter ([i 0])
  (unless (fix>= i 10)
   (display (list a b c i))
   (posix-write 1 "\n")
   (iter (fix+ i 1))))

; vim:set syntax=scheme sw=2 expandtab: