line-mode
pop-b
4
range1
    lowercase-alphabet
    push-a
    and
    swap
    repeat-product
    extract-array
m6
    tuck-b
    split
    length
    1
    =
f5
head