small program-name test added by retroj on Thu Jul 18 00:16:55 2013

#! /bin/sh
#| -*- scheme -*-
exec csi -s $0 "$@"
|#

(import chicken scheme)
(use extras)

(print (program-name))