curly/tests/gcd

#!/usr/bin/env curly
>main
gto
:gcd
=v
=u
$u
$v
>gcd-loop
gge
$u
=t
$v
=u
$t
=v
:gcd-loop
$v
0
>gcd-ret
gle
$v
=t
$u
$v
mod
=v
$t
=u
>gcd-loop
gto
:gcd-ret
$u
ret
:lcm
=b
=a
$a
$a
$b
>gcd
fun
div
$b
mul
ret
:main
21
6
>lcm
fun
out
end