1000
range
m:
    128
    divmod
    pop-a
    half
    @3
    +
    push-a
    double
    shift-left
    134
    shift-right
    @7
    odd
        negate
    f1
    show-line