(define tailrec
  (lambda (n)
    (display n) (newline)
    (if (= n 0) '()
	(tailrec (- n 1)))))
(tailrec 5)