By the way, here's a different approach. It's limited to ~200 characters.
alias equals {- ; Usage: $equals(word, dowr)
;
; use $lower($1) and $lower($$2) for case-insensitiveness.
bset -t &a 1 $1
bset -t &b 1 $$2
if $sorttok($bvar(&a,1-),32) != $sorttok($bvar(&b,1-),32) {
return 0
}
return 1
}