1000
center
inits
133
drop
m:
    reverse
    41
    chunks
    3
    take
        3
        take
    m2
    flatten
    dup
    4
    get
    tuck
    4
    -
    itemize
    and
    length
    f:
        pop
        @1
        show