#!/usr/local/bin/jperl -- -*-Perl-*-

$first = 1;

while(<>){

  s/:/ /g;
  @list = split;

  if($list[0] eq "#" && $list[1] eq "A-ID" && $#list == 2){

    if($first==0){
      print "</TEXT>\n</DOC>\n\n";
    }else{
      $first = 0;
    }
    print "<DOC>\n<DOCID>$list[2]</DOCID>\n<TEXT>\n";

  }elsif($list[0] ne "#"){

    print "$list[0]\n";

  }

}

print "</TEXT>\n</DOC>\n\n";