line-mode
    95
    &
m2
w( "LI" "UX" )
over
length
save-a
4
-
"N"
times #(list)
join
    !=
z1
sum
push-a
4
>
dec
swap
logical-or