line-mode
tuck-d
    2dup
    ^
    is-space
        pop2
    f1
m5
length
>=