line-mode
right-uncons
swap
show-line
left-uncons
catenate #(list+elem)
catenate #(elem+list)
lines