#!/usr/bin/perl -w
while  ($line = <>){

     $line =~ s/pi\^/\\pi^/g;
     $line =~ s/abmp2/\\overline{A}(mp2)/g;
     $line =~ s/abmpp2/\\overline{A}(mpp2)/g;
     $line =~ s/abmpo2/\\overline{A}(mpo2)/g;
     $line =~ s/abmk2/\\overline{A}(mk2)/g;
     $line =~ s/abmkp2/\\overline{A}(mkp2)/g;
     $line =~ s/abmko2/\\overline{A}(mko2)/g;
     $line =~ s/abme2/\\overline{A}(me2)/g;
     $line =~ s/Ab/\\overline{A}/g;
     $line =~ s/Bb/\\overline{B}/g;
     $line =~ s/B1b/\\overline{B}_1/g;
     $line =~ s/b0int/\\overline{B}/g;
     $line =~ s/b1int/\\overline{B}_1/g;
     $line =~ s/b21int/\\overline{B}_{21}/g;
     $line =~ s/b0eps/\\overline{B}^\\epsilon/g;
     $line =~ s/b1eps/\\overline{B}_1^\\epsilon/g;
     $line =~ s/b21eps/\\overline{B}_{21}^\\epsilon/g;
     $line =~ s/hhd\(/H^{F\\prime}(/g;
     $line =~ s/hh1d\(/H^{F\\prime}_1(/g;
     $line =~ s/hh21d\(/H^{F\\prime}_{21}(/g;
     $line =~ s/zhh\(/H^{F}(/g;
     $line =~ s/zhh1\(/H^{F}_1(/g;
     $line =~ s/zhh21\(/H^{F}_{21}(/g;
     $line =~ s/VV\((\d+),/V_{$1}(/g;
     $line =~ s/\,xmu2//g;
     $line =~ s/L(\d+)r[^\^]/L^r_{$1}/g;
     $line =~ s/N(\d+)r[^\^]/N^r_{$1}/g;
     $line =~ s/D(\d+)r[^\^]/D^r_{$1}/g;
     $line =~ s/Z(\d+)r[^\^]/Z^r_{$1}/g;
     $line =~ s/K(\d+)r[^\^]/K^r_{$1}/g;
     $line =~ s/L(\d+)r\^2/(L^r_{$1})^2/g;
     $line =~ s/CC(\d+)/C^r_{$1}/g;
     $line =~ s/mp2/m_\\pi^2/g;
     $line =~ s/mpp2/m_{\\pi^+}^2/g;
     $line =~ s/mpo2/m_{\\pi^0}^2/g;
     $line =~ s/mk2/m_K^2/g;
     $line =~ s/mkp2/m_{K^+}^2/g;
     $line =~ s/mko2/m_{K^0}^2/g;
     $line =~ s/me2/m_\\eta^2/g;
     $line =~ s/\^2\^2/^4/g;
     $line =~ s/\^2\^3/^6/g;
     $line =~ s/\^2\^-1/^{-2}/g;
     $line =~ s/\^2\^-2/^{-4}/g;
     $line =~ s/\^2\^-3/^{-6}/g;
     $line =~ s/\*/\\,/g;
     $line =~ s/\^-(\d+)/^{-$1}/g;
     $line =~ s/ss/s/g;
     $line =~ s/tt/s/g;
     $line =~ s/ss/s/g;
     $line =~ s/tmu/\\delta/;
     $line =~ s/pi16\^2/\\left(\\frac{1}{16\\pi^2}\\right)^2/g;
     $line =~ s/pi16/\\frac{1}{16\\pi^2}/g;
     $line =~ s/ \(/ \\Big(/g;
     $line =~ s/ \)/ \\Big) /g;
     $line =~ s/\;//g;
     $line =~ s/ *\n/\n/;
     if ($line ne "\n") {print $line};
     if ($line ne "\n") { print "\\nonumber\\\\&&\n";}
}