#!/bin/sh
tail -n +3 |
perl -e ' 
	undef $/; $_=<>;
	tr/\r//d;
	s/^.*?(<A|\0).*?$//mig;
	s/\t/  /g;
	s/ *\n\s*([^< \t])/ $1/mig;
	s/<.*?>//g;
	s/^\s*$//mg;
	s/\s+\n$/\n/mg;
	s/\n\n\n+/\n\n/sg;
	s/\n\n(?!Word:)/\n/sg;
	s/\n[ \t]+/ /sg;
	s/ (\d+)\)  /  $1)  /g;
	s/\n*\z/\n\n/;
	print;
'