line-mode
m:
    itemize
    @0
    odd
    tuck-d
    -
    rjust
    @1
    @3
    not
    +
    pop-d
    8
    ljust
}
transpose
    v( " *$" )
m1
unlines
new-line
clean-split
dump