JezK
Edit File: example_scheme.result
$ erubis -l scheme example.escheme (let ((_buf '())) (define (_add x) (set! _buf (cons x _buf))) (_add "<html> <body>\n") (let ((user "Erubis") (items '("<aaa>" "b&b" "\"ccc\"")) (i 0)) (_add " <p>Hello ")(_add user)(_add "!</p> <table>\n") (for-each (lambda (item) (set! i (+ i 1)) (_add " <tr bgcolor=\"")(_add (if (= (modulo i 2) 0) "#FFCCCC" "#CCCCFF"))(_add "\"> <td>")(_add i)(_add "</td> <td>")(_add item)(_add "</td> </tr>\n") ) ; lambda end items) ; for-each end (_add " </table>\n") ) ; let end (_add " </body> </html>\n") (reverse _buf))