Sample program for STS

sts.scm

(define (enum-nums proc init limit)
  (if (> init limit)
    '()
    (cons init (enum-nums proc (proc init) limit))))
(define (accumulate op init seq)
  (if (null? seq)
    init
    (+ (car seq) (accumulate op init (cdr seq)))))

(accumulate + 0 (enum-nums (lambda (n) (+ 1 n)) 1 100))

(accumulate * 1 (enum-nums (lambda (n) (+ 2 n)) 1 10))