EuklidAlg+(vgk+példa)

Az Euklideszi algoritmus (legnagyobb közös osztó kiszámolására) algml-formája vgk argumentumokkal: code format="xml"                                                                           <var n='17' name='-e-17' precode='set -e-16-val $name'> <op n='18' func='modulus' precode='nwsf' postcode='entsf $f-entry' >                               <var n='19' name='a' postcode='par $name' /> <var n='20' name='b' postcode='par $name' /> </op> <var n='21' name='r' precode='set $name -e-16-val' /> </do> <cond n='22' postcode='goto -e-11-skipcond; entry -e-11-cond; set -e-11-condv -out; goto -e-11-cond-ret; entry -e-11-skipcond;'> <op n='23' func='greater' precode='nwsf' postcode='entsf $f-entry' >                       <var n='24' name='r' postcode='par $name' /> <var n='25' name='-e-25' postcode='par $name' > <lit n='26' type='integer' integer='0' precode='reg -out $type; set -out $val;' /> <set n='27' precode='reg -e-27-val access' postcode='del -e-27-val' >               <var n='28' name='r-old' precode='set -e-27-val $name' /> <var n='29' name='r' precode='set $name -e-27-val' /> </do> code