foof-loop.ss
#! /bin/sh
#| Hey Emacs, this is -*-scheme-*- code!
#$Id: foof-loop.ss 3966 2007-07-06 05:36:07Z erich $
exec mzscheme -M errortrace --case-insens -qu "$0" ${1+"$@"}
|#

(module foof-loop mzscheme
(require (lib "include.ss")
         (lib "8.ss" "srfi"))
(provide (all-defined))
(include/reader "syn-param" (lambda args (read-case-sensitive #f)
                                             (apply read-syntax args)))
(include/reader "foof-loop" (lambda args (read-case-sensitive #f)
                                             (apply read-syntax args)))
)