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

;; palindrom sayılar ters çevrildiğinde kendine eşit olan sayılardır.
;; iki basamaklı iki sayının çarpımından oluşan en büyük palindrom
;; 9009 = 91 x 99 dur.
;; üç basamaklı iki sayının çarpımından oluşan en büyük palindromu bulun.

kütüphane "std.kurt"

makro palindrome? (a -- bool)
    eş
    0 döngü üst 0 > iken
        10 * üst 10 % + ;;eş dump
        değiş 10 / değiş
    yap değiş düş
    = 
son

bel 0 store64
100 döngü eş 1000 < iken
    100 döngü eş 1000 < iken
        2eş * eş palindrome? ise
            eş bel load64 > ise
                eş bel değiş store64
            yap
        yap düş
        1 +
    yap düş
    1 +
yap düş
bel load64 dump