100
range1
m:
    show
    pop-a
    280
    range
        power-of-2
    m1
        show
        3
        take
        inits
        tuck-a
        member
    f6
    head
    show-line