1000
range
dup
    7
    |
    @0
    6
    &
    shift-left
m6
and
unlines