#! /bin/csh
#
reduce << ENDC
LISP RECLAIM();
OFF RAISE;
FASLOUT ("`basename $argv[1] .red`");
IN "$argv[1]";
FASLEND;
BYE;
;END;
ENDC

