#!/usr/bin/perl -s

our ($n);

my $nrfile = $n || 4;

$/ = '<page>';


my $header = <>;

my $files;
for (1..$nrfile) {
   open $files->[$_], ">", sprintf("%02d.xml", $_);
   print {$files->[$_]} $header;
   $header =~ s/<page>$//;
}

print STDERR "go...";
my $i = 0;
$/ = '</page>';
while (my $frag = <>) {
   print {$files->[($i%$nrfile)+1]} $frag;
   $i++;
   print STDERR "\r...$i..." unless $i % 100;
}
print STDERR "\n";