line-mode
inits
push-a
lines
over
diff #(list-list)
    inits
b1
concatmap
diff #(list-list)
head