# Find the sum of all the multiples of 3 or 5 below 1000.
# https://projecteuler.net/problem=1

# TODO: Builtin for range? [ lower upper step ] : etc...
[ [ 1 ] [ [ dup 1 + ] doin ] 998 times ] "range" def

range

[ [ n ] :
    n 3 divisor?
    n 5 divisor? or
] filter

dup len 1 - [ k ] :

[ [ + ] doin ] k times

pop println