lines
m:
    "*"
    split
            is-alpha
        f1
    m2
        length
        times #(list)
    b2
    fold
    0
    show-line