line-mode
push-a
lines
transpose
    diff #(list-elem)
    head
z2
    is-alpha
f1