3
thousand
range1
f:
    digits
    dup
    780004
    4
    base #(num to list)
    reverse
    select
    sum
    drop
}
unlines