>>766と>>773を併せたDrSchemeﾊﾞｰｼﾞｮﾝ
; >>774の件は考慮してない

(require (lib "1.ss" "srfi"))
(require (lib "26.ss" "srfi"))

(define-syntax pa$
(syntax-rules ()
((_ f arg ...) (cut f arg ... <>))))

(define (foo from to)
(unfold (pa$ < to) values (pa$ + 1) from))


(define display-line
(lambda (x)
(display x) (newline)))

(display-line (foo 1 10))

⇒ (1 2 3 4 5 6 7 8 9 10)