% Remember to use the lgrind style

\File{fact9p.s},{19:49},{Sep 23 1993}
\L{\LB{\Proc{fact9p}\K{program}_\V{fact9p}_\K{is}}}
\L{\LB{___\K{var}}}
\L{\LB{______\V{x}_:_\V{int}_:=_9;}}
\L{\LB{___\K{proc}}}
\L{\LB{______\V{fact}_(\K{var}_\V{n}_:_\V{int})_=}}
\L{\LB{_________\K{local}}}
\L{\LB{____________\K{var}}}
\L{\LB{_______________\V{temp}_:_\V{int}_:=_1}}
\L{\LB{_________\K{in}}}
\L{\LB{____________\K{while}_\K{not}_(\V{n}_=_1)}}
\L{\LB{_______________\K{do}}}
\L{\LB{__________________\V{temp}_:=_\V{temp}_\*_\V{n};}}
\L{\LB{__________________\V{n}_:=_\V{n}_\-_1}}
\L{\LB{_______________\K{end};}}
\L{\LB{____________\V{n}_:=_\V{temp}}}
\L{\LB{_________\K{end}}}
\L{\LB{\K{in}}}
\L{\LB{____\K{call}_\V{fact}_(\K{var}_\V{x})}}
\L{\LB{\K{end}}}
