% Remember to use the lgrind style

\File{mcd.s},{19:15},{Sep 23 1993}
\L{\LB{\-\-_\V{Calculates}_\V{the}_\V{MCD}_\K{of}_\V{the}_\V{positive}_\V{integers}_\S{}\"m\"\SE{}_\K{and}_\S{}\"n\"\SE{}_\V{given}}}
\L{\LB{\-\-_\V{the}_\V{result}_\K{in}_\S{}\"mcd\"\SE{}.}}
\L{\LB{}}
\L{\LB{\Proc{MCD}\K{program}_\V{MCD}_\K{is}}}
\L{\LB{___\K{var}}}
\L{\LB{______\V{m}_:_\V{int}_:=_10;_}}
\L{\LB{___\K{var}}}
\L{\LB{______\V{n}_:_\V{int}_:=_5;_}}
\L{\LB{___\K{var}}}
\L{\LB{______\V{mcd}_:_\V{int}_:=_0;}}
\L{\LB{___\K{proc}}}
\L{\LB{______\V{euclid}_(\V{i}_:_\V{int},_\V{j}_:_\V{int},_\K{var}_\V{k}_:_\V{int})_=}}
\L{\LB{_________\K{while}_(\V{i}_\<\>_\V{j})}}
\L{\LB{}\Tab{8}{____\K{do}}}
\L{\LB{_______________\K{if}_(\V{i}_\<_\V{j})_\K{then}_\V{j}_:=_\V{j}_\-_\V{i}_\K{else}_\V{i}_:=_\V{i}_\-_\V{j}_\K{end}}}
\L{\LB{}\Tab{8}{____\K{end};}}
\L{\LB{_________\V{k}_:=_\V{i}}}
\L{\LB{\K{in}}}
\L{\LB{___\K{call}_\V{euclid}_(\V{m},\V{n},\K{var}_\V{mcd})}}
\L{\LB{\K{end}}}
