1000
half
range1
    dup
    negate
    &
    +
b4
scan
unlines