line-mode
dup
"?"
split
push-c
@0
max
index
dec
dec
push-c
get
itemize
join
dup
sort #(list)
push-c
catenate #(list+list)
pop-c
!=
    @3
f1