lines
init
right-uncons
show-line
swap
unlines