;-*-Scheme-*-

;; this is mostly to test that the coloring works.
(test-setup 2  #f)

(defun r2 (one two three)
  two)

(defun r1 (one two three)
  one)


(r2 1 (r1 2 3 4) 5)