"got title term $i of $n: '$term' ($occ occurences)");
ok($term ge $previous, "title term '$term' ge previous '$previous'");
$previous = $term;
"got title term $i of $n: '$term' ($occ occurences)");
ok($term ge $previous, "title term '$term' ge previous '$previous'");
$previous = $term;