my ($text, $page) = split "\t", $line;


##</code><code>##

warn $text, ' on page ', $page, ' must be wrong' if $page < $lastpage; 

##</code><code>##

sub valid($){
	my ($text, $page) = split "\t", shift;
	$page =~ /^\d+$/ or die 'page not numbers';
	warn $text, ' on page ', $page, ' must be wrong' if $page < $lastpage;
	$lastpage = $page;
	return ($text, $page);
}