line-mode
0
pop-a
words
m:
    push-a
    dec
    @0
    not
        pop
        read-num
        @0
        m( "R" )
            make-array
            2
            times #(list)
            extract-array
            0
        f5
    f6
    pop-a
}
unwords