
while (<STDIN>) {


    next if (m/^;/);
    next if (m/^\n/);

    s/.*\|//;

    s/^\[[^]]+\]\s*//;
    s/[.|!|?]+ *$//g;
    s/\n//g;

   next if ($_ eq '<p>');
    
    my @w = split(/ /, $_);
    $w = shift @w;
    $w =~ s/[\#;\"\'\`\',!\?\(\)«»:]//g;
    $w =~ s/[\.\/-]$//g;
    $w =~ s/^[\.\/-]//g;

    $w =~ s/\//\n/g;
    print "*", $w, "\n";
    foreach my $w (@w) {
	$w =~ s/[\#;\"\'\`\',!\?\(\)«»:]//g;
        $w =~ s/[\.\/-]$//g;
        $w =~ s/^[\.\/-]//g;
        $w =~ s/\//\n/g;
	print $w, "\n";
    }


}
