line-mode
dup
catenate #(list+list)
left-uncons
swap
@2
split
head
catenate #(elem+list)