gistfile1.txt

gosh> (define-syntax for
        (syntax-rules (in do)
          ((for var in lis do expr ...)
           (let loop ((xs lis))
             (if (not (null? xs))
               (begin (let ((var (car xs))) expr ...)
                      (loop (cdr xs))))))))
#<undef>
gosh> (for x in '(1 2 3 4 5) do (print (* x x)))
1
4
9
16
25