(begin
 (require (file "c:/scheme/kcollects/test/test.scm"))
 (test ((define a 1)) (,(void)))
 (test (a) (1))
 (test ((car a)) (,(void)) "" "car: expects argument of type <pair>; given 1\n")
 (test ((write 'monkey)) (,(void)) "monkey"))
(test ((define b 1)) (,(void)))
(test (b) (1))
(test ((car b)) (,(void)) "" "car: expects argument of type <pair>; given 1\n")
(test ((write 'peanuts)) (,(void)) "peanuts")
(test-report)