#!/usr/bin/gawk -f

BEGIN{
  FS=OFS=",";
  RS=ORS="\n\n";
  p=0;
}

/===/{f=$1;}

p%2 == 0{
  #f=$1;
  gsub( /=/, "", f );
  gsub( / /, "", f );
  gsub( /\|/, "", f );
  sub(/\n/, "", f );
  sub(/\n.*/, "", f );
  file = f ".mwu";
  sub(/.*=.*=/, "" );
  print > file;
}


{p++;}