w( "d" )
{
    reverse
    transpose
    4
    @1
    length
    1
    rjust
    left-cons
            double
            5
            %
        m3
    m2
}
58
times #(eval)
m:
    ( "@^><v" )
    select
    show-line