uppercase-alphabet
tails
init
init
dup
3
step
tail
5
step
diff #(list-list)
dup
init
reverse
catenate #(list+list)
m:
    init
    reverse
    2
    step
    @3
    1
    take
    or
    uppercase-alphabet
    over
    diff #(list-list)
    show-line