w( "a" )
swap
{
    64
    <
    save-a
        transpose
    f1
    last
    last
    inc
    @1
    length
    copies
    @5
    right-cons
    push-a
        transpose
    f1
}
each
unlines