#!/usr/bin/perl

use strict;

my $mode = 'no'; #$ARGV[0];

unless (($mode eq 'no') or ($mode eq 'en')) {
    die("mode must be either 'no' or 'en'");
}

while (<STDIN>) {


#    next if ((s/^\[\d+a\]\s*//) and ($mode eq 'en'));
#    next if ((s/^\[\d+b\]\s*//) and ($mode eq 'no'));
#    next if ((s/^\[\d+c\]\s*//) and ($mode eq 'no'));
#    next if ((s/^\[\d+d\]\s*//) and ($mode eq 'no'));

    s/^\[\d+\] #?\|//;

    s/^\^//;
    s/[.|!|?]+ *$//g;    
    s/\n//g;
    
    my @w = split(/ /, $_);
    print "*", shift @w, "\n";
    foreach my $w (@w) {
	$w =~ s/[,|!|?\(|\)|«|»|:]//g;
	print $w, "\n";
    }
    

}