lines
transpose
( "DRU" )
    itemize
    pop-a
    m:
        push-a
        split
        space
        join
        push-a
        @0
        length
        dec
        times #(list)
        5
        ljust
        catenate #(list+list)
    }
    transpose
    reverse
m6
pop
    reverse
    s( " *$" "" )
m2
    length
f1
unlines