{
    save-a
    read-nums
    extract-array
    push-a
    is-alpha
        push-a
        rrot
            copies
        t1
    f4
    push-a
    is-alnum
    not
    f:
        push-a
        odd
                transpose
            t1
        f2
        catenate #(list+list)
            100
            46
            ljust
        m3
        transpose
            is-lower
        f1
        push-a
        even
            transpose
        f1
    }
}
each
unlines