$ erubis -l scheme example.escheme (let ((_buf '())) (define (_add x) (set! _buf (cons x _buf))) (_add " \n") (let ((user "Erubis") (items '("" "b&b" "\"ccc\"")) (i 0)) (_add "

Hello ")(_add user)(_add "!

\n") (for-each (lambda (item) (set! i (+ i 1)) (_add " \n") ) ; lambda end items) ; for-each end (_add "

")(_add i)(_add "

")(_add item)(_add "

\n") ) ; let end (_add " \n") (reverse _buf))