lines
left-uncons
save-a
show-line
swap
init
m:
    space
    split
    flatten
    right-uncons
    itemize
    push-a
    length
    dec
    ljust
    left-cons
    show-line
}
push-a