40 lines
146 B
Plaintext
40 lines
146 B
Plaintext
>main
|
|
gto
|
|
:gcd
|
|
=v
|
|
=u
|
|
$u
|
|
$v
|
|
>loop
|
|
gge
|
|
$u
|
|
=t
|
|
$v
|
|
=u
|
|
$t
|
|
=v
|
|
:loop
|
|
$v
|
|
0
|
|
>ret
|
|
gle
|
|
$v
|
|
=t
|
|
$u
|
|
$v
|
|
mod
|
|
=v
|
|
$t
|
|
=u
|
|
>loop
|
|
gto
|
|
:ret
|
|
$u
|
|
ret
|
|
:main
|
|
4
|
|
16
|
|
>gcd
|
|
fun
|
|
end
|