#!/usr/bin/perl

while (<>) {
	next if (/^\*\n/);
	s#\(\"(.+?)\"#\(\'$1\'#;
	s#\*+\n#\n#g;
	s#\*+:#:#g;
	s#M/F#MF#g;
	s#S/P#SP#g;
        s#<[^<]+\?>##g;
	s# +# #g;
        s# +\)#\)#g;
        print $_;
}