Welcome to the CHICKEN Scheme pasting service

diff --git a/bench b/bench
index e5bdbdf..480635c 100755
--- a/bench
+++ b/bench
@@ -109,6 +109,7 @@ setup ()
     BONES=${BONES:-"bones"}
     CHEZ=${CHEZ:-"chez-scheme"}
     CHIBI=${CHIBI:-"chibi-scheme"}
+    CSI=${CSI:-"csi"}
     CHICKEN_CSC=${CHICKEN_CSC:-"csc"}
     FOMENT=${FOMENT:-"foment"}
     GAMBITC=${GAMBITC:-"gambitc"}
@@ -155,6 +156,7 @@ Usage: bench [-r runs] <system> <benchmark>
   bones            for Bones
   chez             for Chez Scheme
   chibi            for Chibi
+  csi              for Chicken interpreter
   chicken          for Chicken
   foment           for Foment
   gambitc          for GambitC Scheme
@@ -318,6 +320,19 @@ chibi_exec ()
 }
 
 # -----------------------------------------------------------------------------
+# Definitions specific to csi
+
+csi_comp ()
+{
+    :
+}
+
+csi_exec ()
+{
+    time "$1" < "$2"
+}
+
+# -----------------------------------------------------------------------------
 # Definitions specific to Chicken
 
 chicken_comp ()
@@ -801,6 +816,16 @@ for system in $systems ; do
                EXECCOMMANDS=""
                ;;
 
+        csi) NAME='CSI'
+               COMP=csi_comp
+               EXEC=csi_exec
+               COMPOPTS=""
+               EXTENSION="scm"
+               EXTENSIONCOMP="scm"
+               COMPCOMMANDS=""
+               EXECCOMMANDS=""
+               ;;
+
         chicken) NAME='Chicken'
                  COMP=chicken_comp
                  EXEC=chicken_exec