% Remember to use the lgrind style

\File{fact.s},{19:16},{Sep 23 1993}
\L{\LB{\Proc{factorial}\K{program}_\V{factorial}_\K{is}}}
\L{\LB{___\K{var}}}
\L{\LB{______\V{y}_:_\V{int}_:=_0;}}
\L{\LB{___\K{proc}}}
\L{\LB{______\V{fact}_(\V{n}_:_\V{int})_=}}
\L{\LB{_________\K{if}_(\V{n}_=_0)}}
\L{\LB{____________\K{then}_\V{y}_:=_1}}
\L{\LB{_________\K{else}}}
\L{\LB{____________\K{call}_\V{fact}_(\V{n}_\-_1);}}
\L{\LB{____________\V{y}_:=_\V{n}_\*_\V{y}}}
\L{\LB{_________\K{end}}}
\L{\LB{\K{in}}}
\L{\LB{___\K{call}_\V{fact}_(10)}}
\L{\LB{\K{end}}}
