1000
range
m:
    128
    divmod
    swap
    half
    @3
    +
    swap
    double
    shift-left
    134
    shift-right
        negate
    b1
    @8
    times #(eval)
    show-line