vextoly/cryn

[# functions with parameters: gcd #]
define gcd int64 a int64 b result int64
  mark loop
  move b
  read
  compare 0
  jump done when equal
  move b
  read
  push
  move b
  read
  push
  move a
  read
  remainder
  push
  move b
  write
  pop
  pop
  move a
  write
  set nothing
  home
  jump loop
  mark done
  move a
  read
  return
end

define main
  set 252
  push
  set 105
  push
  call gcd
  output
  return
end