fn main() {
    0 3 while dup 1000 < do {
        dup  3 % 0 ==
        over 5 % 0 ==
        lor if {
            swap over + swap
        }

        1 +
    } drop
    println
}