(define-syntax debug
(syntax-rules ()
((_ obj)
(begin
(display 'obj)
(display ": ")
(write obj)
(newline)
obj))))