: collation-test-lines ( -- lines )
"vocab:unicode/UCA/CollationTest_SHIFTED.txt.zip"
- binary file-contents uncompress utf8 decode string-lines
+ binary file-contents uncompress utf8 decode lines
[ "#" head? ] reject harvest ;
: parse-collation-test-shifted ( -- lines )