hoge.scm

(define foo
  (lambda (n lst)
    (if (zero? n) '()
	(cons (cons n lst) (foo (- n 1) lst)))))

;; MIT Scheme
;; (foo 4 '(4))
;; ==> ((4 4) (3 4) (2 4) (1 4))

;; Gauche (and my env)
;; (foo 4 '(4))
;; ==> ((4 . #0=(4)) (3 . #0#) (2 . #0#) (1 . #0#))