A sample code of something called "LISP on TeX"

sample.tex

\documentclass{article}
\usepackage[scale=0.8]{geometry}
\usepackage{lisp}
\begin{document}
%% An expression equivalent to
% (let ((two (lambda (s) (lambda (z) (s (s z))))))
%   (let ((next (lambda (x) (cons "*" x))))
%     (((two (two two)) next) '())))
% in Scheme. It calculates (2^2)^2 and makes an list consisting
% of as many "*"'s as the value (i.e. 16).
\lispread\expA{((\lambda.(\two.(((\lambda.(\next.((((\two.((\two.(\two.()))%
.())).(\next.())).((\quote.(().())).())).()))).((\lambda.(\x.((\cons.(*.(\x%
.()))).()))).())).()))).((\lambda.(\s.((\lambda.(\z.((\s.((\s.(\z.())).()))%
.()))).()))).()))}
\scrollmode % non-stop running
\lispeval\expA\valA
\lispprint\valA
\end{document}