line-mode
inits
push-a
show
lines
@2
itemize
xor
    inits
    diff #(list-list)
m2
catenate #(list+list)
1
take