0
1000
range1
f:
    100
    %
    ( "\n\xdc\xfb\xdd\x0f" )
    member
    @2
    1000
    +
    digits
    @4
        shift-right
    z1
    sum
    +
    even
}
catenate #(elem+list)
unlines