File r37/lisp/csl/jlisp/rlisp.tst from the latest check-in

(begin)
expt(10,20);
for each x in '(1 2 3 4 5) do print expt(x,x);
end;