(library (srfi n5 tests)
  (export)
  (import (except (rnrs base) let)
          (srfi n78)
          (srfi n5))
          
  (check (let (fibonacci (n 10) (i 0) (f0 0) (f1 1))
	   (if (= i n)
	       f0
	       (fibonacci n (+ i 1) f1 (+ f0 f1))))
	 => 
	 55)

  (check (let (blast (port #f) . (x (+ 1 2) 4 5))
	   (if (null? x)
	       'just-a-silly-contrived-example
	       (begin
		 ;(write (car x) port)
		 (apply blast port (cdr x)))))
	 =>
	 'just-a-silly-contrived-example)	 

  (check-report))