100
range1
m:
    show
    pop-a
    280
    range
        power-of-2
        show-line
    m2
        push-a
        zip
        transpose
        dump
        =
    f5
    head