566 

   566 

   567 EOT

   567 EOT

   568 }

   568 }

   569 

   569 

   570 sub cleanup($$$) {

   570 sub cleanup($$$) {

   572 	my ($in, $out, $k) = @_;

   571 	my ($in, $out, $k) = @_;

   573 	my ($line, $lastblank);

   572 	my ($line, $lastblank);

   574 

   573 

   575 	open(OUTPUT_FILE, "> $out") or die "Cannot open $out for output";

   574 	open(OUTPUT_FILE, "> $out") or die "Cannot open $out for output";

   576 	open(INPUT_FILE, "< $in") or die "Cannot open for $in input";

   575 	open(INPUT_FILE, "< $in") or die "Cannot open for $in input";