1000
half
range1
    dup
    negate
    &
    push-d
    +
    save-d
m6
unlines