lines
{
    dup
        is-space
    m1
    0
    index
    drop
    reverse
    transpose
}
4
times #(eval)
unlines