line-mode
tuck-d
    2dup
    ^
    is-space
        pop2
    f1
m5
nip
empty-list
=