1i\
(define exit (foreign-procedure (int) no-return "exit"))
\+;;; begin Stalin+d
\+;;; end Stalin+d
\+;;; begin Scheme->C+,\+;;; end Scheme->C+d
\+;;; begin Gambit-C+,\+;;; end Gambit-C+d
\+;;; begin Bigloo+,\+;;; end Bigloo+d
\+;;; begin Chez+,\+;;; end Chez+d
\+;;; begin Chicken+,\+;;; end Chicken+d
