0
1000
half
range1
    dup
    negate
    &
    +
    dup
m5
catenate #(elem+list)
init
unlines