;; test
;; (format nil "~a~%" 232792560)

;; 2520, 1den 10a kadar tüm sayılara tam bölünen en küçük sayıdır.
;; 1den 20ye kadar tüm sayılara tam* bölünebilen en küçük sayıyı bulun.
;; * kalansız bölünen

kütüphane "std.kurt"

makro N  20 son
makro cevap  bel son

makro gcd (a b -- c)
    döngü üst iken
        üst % değiş
    yap
    değiş düş
son

makro lcd (a b -- c)
    2eş * rot rot gcd /
son

cevap 1 store64
1 döngü eş N < iken
    cevap
    üst cevap load64 lcd
    store64
    1 +
yap
cevap load64 dump