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