aharisu

(use gauche.generator)
(use gauche.lazy)

(define-syntax chain
  (syntax-rules ()
    ((_ ls proc)(proc ls))
    ((_ ls proc x ...)
     (begin (chain ls proc)
            (chain ls x ...)))))