#! /bin/csh
#
psl << ENDC
(put 'pl 'pslnames "/usr/local/psl.reduce/psl")
(load "../fasl/prolog" "../fasl/rlisp" "../fasl/rend")
(initreduce)
(begin)
lisp load ("compiler", "compl-extra", "nil-alloc", "carcdr");
lisp load ("../fasl/alg1");
LISP RECLAIM();
OFF RAISE;
FASLOUT ("`basename $argv[1] .red`");
IN "$argv[1]";
FASLEND();
BYE;
;END;
ENDC

