%{

#include <stdio.h>
#include <string.h>
#include <ctype.h>

  unsigned char slovo[1500];

%}

%%
\<MMt[^\>]*\>.{14}8 {
  strcpy(slovo,yytext);
  slovo[yyleng-13]=0;
  fprintf(yyout,"%s------------8",slovo);
}
\<MMt[^\>]*\>P7-.[34]--- {
  strcpy(slovo,yytext);
  slovo[yyleng-5]='-';
  fprintf(yyout,"%s",slovo);
}
\<MMt[^\>]*\>P6-.[23467] {
  strcpy(slovo,yytext);
  slovo[yyleng-2]='-';
  fprintf(yyout,"%s",slovo);
}
\<MMt[^\>]*\>P[1S]...[XZMIN][SP]3 {
  strcpy(slovo,yytext);
  slovo[yyleng-3]='-';
  fprintf(yyout,"%s",slovo);
}
\<MMt[^\>]*\>P[1S]...FP3 {
  strcpy(slovo,yytext);
  slovo[yyleng-3]='-';
  fprintf(yyout,"%s",slovo);
}
\<MMt[^\>]*\>Vs......[FPRX] {
  strcpy(slovo,yytext);
  slovo[yyleng-1]='-';
  fprintf(yyout,"%s",slovo);
}
\<MMt[^\>]*\>Vc.X...3 {
  strcpy(slovo,yytext);
  slovo[yyleng-1]='-';
  slovo[yyleng-5]='-';
  fprintf(yyout,"%s",slovo);
}
\<MMt[^\>]*\>C\} {
  strcpy(slovo,yytext);
  slovo[yyleng-1]='=';
  fprintf(yyout,"%s",slovo);
}
\<MMt[^\>]*\>VB-X---X....... {
  strcpy(slovo,yytext);
  slovo[yyleng-15]=0;
  fprintf(yyout,"%sXX-------------",slovo);
}
\>[\-\+]?[0-9][^\<]*\<MMl[^\>]*\>[^\<]+\<MMt[^\>]*\>C[nlr].{13} {
  strcpy(slovo,yytext);
  slovo[yyleng-14]=0;
  fprintf(yyout,"%s=-------------",slovo);
}
\<MMl[^\>]*\>co\<MMt[^\>]*\>P4... {
  strcpy(slovo,yytext);
  slovo[yyleng-3]=0;
  fprintf(yyout,"%s---",slovo);
}
  
. ECHO;
\n ECHO;
%%
main()
{
yylex();
}