line-mode
"/"
split
tail
left-uncons
save-a
length
        push-a
        split
        length
        half
    f4
f2
length
half
w( "Yes" "No" )
get