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

;; https://projecteuler.net/problem=1
;; 1000den küçük, 3 veya 5 in katı olan tüm sayıların toplamını bulun.
;; Örnek: 10 için 3 + 5 + 6 + 9 = 23

makro problem-girdi 1000 son

0 3 döngü eş problem-girdi < iken
    eş  3 % 0 =
    üst 5 % 0 =
    | ise
        eş rot + değiş
    yap
    1 +
yap düş
dump