(assert-eq
  (range 0 10)
  '(0 1 2 3 4 5 6 7 8 9))

(assert-eq
  (for (i (range 0 10)) (+ i 1))
  (map (lambda (x) (+ x 1)) (range 0 10)))

(assert (and #t #t))
(assert (or #f #t))
(assert (not #f))

(assert-eq
  (for (i '(1 2 3)) (for (j '(1 2 3)) (+ i j)))
  (list '(2 3 4) '(3 4 5) '(4 5 6)))

(assert-eq
  ((lambda (x) x) 2)
  2)

(define x 2)
(define y 5)
(set! x 3)
(assert-eq x 3)

(define (square-x x)
  (let [(y x)]
    (begin
      (set! y (* x x))
      y)))

(assert-eq (square-x 2) 4)
(assert-eq y 5)