#!/bin/sh
IFS=" "
exec /afs/wsi/ppc_macx54/bin/scsh -s "$0" "$@"
!#

(for-each
 (lambda (name)
   (display (string-append "There is a file " name
			   "in this directory"))
   (newline))
 (directory-files "."))