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

    $line =~ s/pi\^/\\pi^/g;
    $line =~ s/abmp2/\\overline{A}(mp2)/g;
    $line =~ s/abmk2/\\overline{A}(mk2)/g;
    $line =~ s/abme2/\\overline{A}(me2)/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/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/mk2/m_K^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";}
}