uppercase-alphabet
tails
init
init
    reverse
    2
    chunks
        last
    m1
m5
dup
3
step
tail
5
step
diff #(list-list)
dup
init
reverse
catenate #(list+list)
m:
    uppercase-alphabet
    over
    diff #(list-list)
    show-line