% Remember to use the lgrind style

\File{fib.s},{19:19},{Sep 23 1993}
\L{\LB{\Proc{fibonacci}\K{program}_\V{fibonacci}_\K{is}}}
\L{\LB{___\K{const}}}
\L{\LB{______\V{num}_:_\V{int}_=_22;}}
\L{\LB{___\K{const}}}
\L{\LB{______\V{times}_:_\V{int}_=_50;}}
\L{\LB{___\K{var}}}
\L{\LB{______\V{i}_:_\V{int}_:=_0;}}
\L{\LB{___\K{var}}}
\L{\LB{______\V{result}_:_\V{int}_:=_0;}}
\L{\LB{___\K{proc}}}
\L{\LB{______\V{fib}_(\V{n}_:_\V{int})_=}}
\L{\LB{_________\K{local}}}
\L{\LB{____________\K{var}}}
\L{\LB{_______________\V{x}_:_\V{int}_:=_0;}}
\L{\LB{____________\K{var}}}
\L{\LB{_______________\V{y}_:_\V{int}_:=_0}}
\L{\LB{_________\K{in}}}
\L{\LB{____________\K{if}_(\V{n}_=_0)}}
\L{\LB{_______________\K{then}_\V{result}_:=_0}}
\L{\LB{____________\K{else}_}}
\L{\LB{}\Tab{8}{_______\K{if}_(\V{n}_=_1)_}}
\L{\LB{__________________\K{then}_\V{result}_:=_1}}
\L{\LB{_______________\K{else}_}}
\L{\LB{__________________\K{call}_\V{fib}_(\V{n}_\-_1);}}
\L{\LB{__________________\V{x}_:=_\V{result};}}
\L{\LB{__________________\K{call}_\V{fib}_(\V{n}_\-_2);}}
\L{\LB{__________________\V{y}_:=_\V{result};}}
\L{\LB{__________________\V{result}_:=_\V{x}_+_\V{y}}}
\L{\LB{_______________\K{end}}}
\L{\LB{____________\K{end}}}
\L{\LB{_________\K{end}}}
\L{\LB{\K{in}}}
\L{\LB{___\K{while}_(\V{i}_\<_\V{times})}}
\L{\LB{______\K{do}}}
\L{\LB{_________\K{call}_\V{fib}_(\V{num});}}
\L{\LB{_________\V{i}_:=_\V{i}_+_1}}
\L{\LB{______\K{end}}}
\L{\LB{\K{end}}}
